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ABSTRACT 


Part 1 of the PDP-15 EAE Diagnostic verifies correct operation of all EAE operations, 
except multiplies and divides. Part 1 is written in three logical sections. Part 1 
Section 1 is the EAE Set-Up Test and verifies that all set-up operations except 
LACS operate correctly. Part 1 Section 2 is the Shift Counter (LACS is verified) 
and Basic Shift Test and verification that the AC and MQ will each shift leftl 
and shift right 1 all combinations of 18 bits. Part 1 Section 3 is the Rondom Data, 
Normalize, and Interrupt Test verifying that random data will shift left and right 
0 to 44g places, that normalize will " stop shift" on negative and positive data, 
and the teleprinter flag will cause a break after an EAE operation. Hardware 
malfunctions detected by the program result in an error on the teleprinter. 

3. REQUIREMENTS 

3 . 1 Storage 

CAL subroutine 
AC contents initial 
MQ contents initial 
Link initial 

SC of shift instructions 
AC contents as result 
MQ contents as result 
Link as result 
SC of LACS instruction 
Halt and/or Scope Loop subroutine 
Halt and/or Repeat Sequence subroutine 
Set-Up Test 

Error Typeout subroutine 
Error texts and program constants 
SC and Basic Shift Test 
Random Data and Normalize 

3.2 Subprograms and/or Subroutines 
PDP-4/7/9 Teletype Output Package 
(ASCI 1 tape 2A of this test) 

3.3 Equipment 

Minimum configuration PDP-15 with EAE option installed. 


00020-00027 

00030 

00031 

00032 

00033 

00034 

00035 

00036 

00037 

00040-00057 

00060-00077 

00100-01000 (approx.) 

01035-02100 (approx.) 
02200-04600 (approx .) 
05000-06400 (approx.) 
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4. USAGE 

4 . 1 Loading 

a . Set Bank Mode SW on 1 , 

b. Set address SW to 17700, 

c. Press reset, press READ IN. 

4.2 Coiling Sequence 

Part 1 Section 1 must run in its entirety before running Part 1 Section 2. 

Part 1 Section 2 must run in its entirety before running Part 1 Section 3 . 

4.3 Switch Settings 

4.3.1 AC switches = 0 or down. With all AC Switches down the program results in 
the following: 

(1) Ail hardware malfunctions detected by the program result in an error typeout 
on the teleprinter. 

(2) At the completion of an error typeout the processor halts. 

(3) The program repeats whichever section of the test it was started in and 
sequences from each sub-test of that section to the next without halting. 

4.3.2 AC switches = 1 or up 


SW# 


Operation 


Description 


0 Delete error typeouts The program will not type out error 

messages and will not error halt (see 
also SWO and 7, Ring Bell on Error). 


1 Halt after EAE operation 
Processor halts at address 0046 
(AC)= S.A, to set up last operation 

2 Repeat EAE operation 
(Scope Loop) 


3 Halt after EAE sequence 


The processor halts after each EAE 
operation is initiated and its results are 
verified. (Note; Press CONTI NUE to 
proceed.) 

The program repeats the last EAE oper- 
ation. If SW2 is set during an error 
typeout or halt, the program repeats the 
operation that caused the error (Note; SWl 
is tested before SW2.) 

The processor halts after each sequence of 
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4.3.2 ( Continued) 


SW# 


Operation 


Description 


Processor halts at address 0066 
(AC)=S.A. of last sequence 


4 Repeat EAE sequence 


5 Cycle all sections 


6 Type end of section 


7 Delete error halt 
0 & 7 Ring bell on error 


testing an EAE operation ; i.e./ after test- 
ing that the MQ will complement all 
patterns, the processor halts. 

The program repeats the last sequence of 
testing an EAE operation; i.e., the pro- 
gram repeats the LEFT SHIFT ALL COM- 
BINATIONS and does not proceed to 
RIGHT SHIFT ALL COMBINATIONS. 

(Note: The program tests SW3 before SW4.) 
In the Random Data Left and Random Data 
Right routines SW4 causes the program to 
repeatedly shift a single pair of random 
numbers 0 to 44g places. 

At the completion of 1 pass through the 
Set-Up Test the program proceeds to the 
SC and Basic Shift Test. At the completion 
of 1 pass through the SC and Basic Shift 
Test the program proceeds to the Random 
Data and Normalize Test. At the com- 
pletion of 1 pass through Random Data and 
Normalize Test the program repeats the 
Set-Up Test. 

At completion of 1 pass through each of the 
sections a character is typed on the tele- 
printer as follows: 

Set-Up Test / 

SC and Basic Shift Test ' 

Random Data and Normalize * 

The processor will not halt after error 
typeouts . 

SWO and SW7 both up. Error typeouts and 
halts are deleted and the "bell" on the 
teleprinter is rung (to be used to determine 
marginal voltage limits, eliminates waiting 
for long typeouts). 
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4.4 Start Up and/or Entry 

4.4.1 Start Up, Set-Up Test 
Set AC switches = 000000 
Set ADDRESS = 0200 
Press I/O Reset 

Press START 

Processor holts at 0201 with MQ = 777777 
Set ADDRESS = 0202 
Press I/O Reset 
Press START 

Program reads C(MQ) into the AC and tests for 0, then proceeds to rest of test. 

4.4.2 Startup, SC and Basic Shift Test 
Set AC switches = 000000 

Set ADDRESS = 2200 
Press I/O Reset 
Press START 

4.4.3 Start Up Random Data and Normalize Test 
Set AC switches = 000000 

Set ADDRESS = 5000 
Press I/O Reset 
Press START 

4.5 Errors in Usage 

Hardware malfunctions detected by the program will result in an error typeout on the 
teleprinter and a processor halt (see section 4.3.2, SWO and SWT). 

4.5.1 Error Typeout Format 

All error typeouts are in standard formats and include the following information; 
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4.5.1 (Continued) 

(1) An address that may be used to determine which test the program was in at 
the time the error was detected . 

(2) A mnemonic describing the operation being tested 

(3) The initial condition of registers pertinent to the failure 

(4) The expected results of the operation being tested if they are not easily 
determined from the initial conditions and operation 

(5) The resultant register contents that are pertinent to the failure 

A common typeout routine called ERROR generates all error typeouts. The first line 
of every error typeout is the contents of memory register ERROR or the address 
+ 1 of the JMS ERROR instruction. 

The second line of every typeout is the mnemonic describing the operation being 
tested (see paragraph 4.5.2 for definitions of mnemonics used). 

The third line of a typeout may be another address. In this case the second address 
typed should be used to determine which test failed. (Operations such as LRS or 
LLSS each have common error routines.) 

The next information typed is a header to format the typeouts of the contents of 
pertinent registers. One of five headers may be used for any typeout. 

The abbreviations used by the headers are as follows: 

Abbr. Meaning 

L The information under this column is the contents of the link. 

C(AC) The information under this column is the contents of the accumulator. 

C(MQ) The information under this column is the contents of the MQ register. 

SC The information under this column is the contents of the shift counter 

or the SC portion of shift instructions. 

START The information is this line is the initial condition of pertinent 

registers. 


The five headers are as 

follows: 



C(AC) 



START 

C(AC) 

C(MQ) 


START 

L 

C(AC) 

C(MQ) 


START 
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4.5.1 (Continued) 


START 

SC 

C(AC) 

L 

C(AC) 

C(MQ) 

Error Typeout Mnemonics 


Mnemonic 


Description 

EAENOP 


EAE instruction with no other operation specified. 

EAECLA 


EAE. Clear the accumulator. 

CLQ 


Cl ear the MQ register. 

CMQ 


Complement the MQ register. 

ORMQAC 


Inclusive OR the MQ to the AC and place the results 
in the AC. 

ACOTOL 


Set AC bit 0 into the link. 

ORACMQ 


Inclusive OR the AC to the MQ and place the results 
in the MQ ( and in test ACORMQ clear the AC). 

LACQ 


Clear the AC, then MQ I's to the AC. 

LLS 


Long left shift 

LLSS 


Long left shift signed. 

LRS 


Long right shift. 

LRSS 


Long right shift signed. 

LMQ 


Clear the MQ, then AC Ts to the MQ. 

ABS 


Complement the AC if it is negative . 

CLR SC 


Clear the step counter (START). 

LACS 


Clear the AC and step counter; I's to the AC. 

NORM 


Normalize the AC and MQ. 

NORMS 


Normalize signed. 

ALS 


Accumulator left shift. 

PAT 


Pattern being tested. 

COR 


Results expected from the operation being tested. 

INCO 


Erroneous results of the operation. 


4.5.3 Error typeout Examples 

The following are examples of error typeouts. The addresses indicated by these 
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4.5.3 (Continued) 


typeouts should not necessarily be taken as true representations: 


Example 1: Complement the MQ Failure 



Example 

Explanation 

000226 


JMS ERROR is at 00225 

CMQ 


Operation is complement the MG 


C(AC C(MQ 

Header 

START 

000000 000000 

Initial conditions 

CMQ 

000000 767777 

Contents of the AC and MQ after 
CMQ was executed. 

Note: Examine the MQ indicators to be sure they agree with the typeout. If 
the MQ as indicated does not agree with a typeout, an error was present in 
MQ Ts to the AC . This is true of all error typeouts that include the MQ as 
end condition. 

Example 2: 

EAE NOP AC Failure 



Example 

Explanation 

000135 


JMS ERROR is at 00134 

EAENOP 


Operation is NOP 640000 


C(AC) 

Header 

START 

777777 

Initial condition of the AC 

EAENOP 

000000 

Contents of the AC after the NOP 
was executed 

Example 3: 

AC Sign to Link Failure 



Example 

Explanation 

000455 


JMS ERROR is at 00454 

ACOTOL 

L C(AC) C(MQ) 

Operation is AC bit 0 to link 

Header 
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4.5.3 (Continued) 


Example 


Explanation 


START 


400000 


initial conditions MQ not pertinent 


ACOTOL p 400000 


State of the LINK and AC after the 
operation was executed 


Example 4: AC to MQ to AC Failures 


Example 


Explanation 


000526 



JMS ERROR is at 00525 

ORACMQ 



Operation is AC 1 's to MQ 


C{AC) 

C(AC) 

Header 

START 

000000 

000000 

Initial register states 

ORACMQ 

000000 

000000 

COR Expected results 

LACQ 

000000 

000000 

1 NCOThe contents of the AC after ORACMQ 
and the contents of the MQ as indicated 
by a LACQ instruction. 

000526 




ORACMQ 

C(AC) 

C(MQ) 


START 

005000 

000000 


ORACMQ 

000000 

005000 

COR 

LACQ 

000000 

004000 

INCO 


Note; Again, the contents of the MQ as indicated by the MQ indicators may not 
necessarily agree with the MQ contents as typed. 


Example 5: Step Counter Error 


Example 


Explanation 


002530 
SC ERROR 
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JMS ERROR is at 02527 
One of the SC tests failed 



4.5.3 (Continued) 


Example Explanation 


002262 



JMS SCERR is at 02261 


SC 

C(AC) 

Header 

START 

00 

200000 

Initial register status 

NORM 

01 


Instruction used to set the SC 

SET SC 

76 


NORM 01 should set the SC to 76 

SC +1 

77 

COR 

SC should increment to 77 

LACS 

67 

INCO 

200000 Contents of the SC as read to the AC 
by a LACS instruction and the contents 
of the AC after the NORM instruction. 


Example 6: ALS (Accumulator Left Shift) Failure 



Example 


Exploration 

003123 



JMS ERROR is at 03122 

ALS 

05 


ALS instruction 5 places 

003076 



JMS ALSERR is at 03075 

L 

C(AC) 

C(MQ) 

Header 

1 

777776 

PAT 

Pattern being tested 

1 

777777 

RESULT 

Results in AC after the shift 

LACS 

00 


Shift counter read back to the AC 

Example 7: 

Long Left Shift 



Example 


Explanation 

003673 



JMS ERROR is at 03672 

LLS 

01 


Long left shift 1 place 

003507 



JMS LLSERR is at 03506 

L 

C(AC) 

C(MQ) 

Header 

1 

777777 

777737 

PAT initial register states 

1 

777777 

777377 

RESULT Registers at completion of shift 
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4.5.3 (Continued) 


Example 

LACS 00 

Example 8: Long Left Shift Signed 
Example 

003716 


LLSS 

005075 

03 


L 

C(AC) C(MQ) 


0 

456701 234567 

PAT 


567012 345677 

COR 

1 

567012 347677 

INCO 

LACS 

00 


Example 

9: Long Right Shift 

Example 


004600 

LSR 

004537 

01 


L 

C(AC) C(MQ) 


1 

402101 402101 

PAT 


601200 601200 

COR 

1 

601200 601000 

INCO 

LACS 

00 



Example 10: Random Data Sequenced 
Example 


Explanation 

SC as read back to the AC 


Explanation 

JMS ERROR is at 03715 
Long left shift signed 3 places 
JMS LRSSER is at 05074 
Header 

Pattern being tested. 

Expected results 

L, AC, and MQ after the shift 

SC as read back to the AC 


Explanation 

JMS ERROR is at 004577 
Long Right shift 1 place 
JMS LRSER 1 is at 004536 
Header 

Pattern being tested 
Expected results 

AC and MQ after completion of the shift 

SC as read to the AC after completion of 
the shift 


Explanotion 


005501 

RANDOM DATA SEQUENCED 02 
005301 
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JMS ERROR is at 005500 
Random Sequence 2 
JMS SEQCOM is at 005300 



4.5.3 (Continued) 


Example 


L 

C(AC) C(MQ) 


0 

045670 123450 

START 

0 

045630 123450 

RESULT 

LACS 

00 


Note: 

Sequence 2 is LLSS 03 
LRS 06 
LLSS 06 
LRS 03 


The AC 

and MQ results should 

equal the 

all of the Random Data Sequences. 

ExampU 

; 11: Normalize 

Example 


006217 

NORM 

005766 

01 


L 

C(AC) C(MQ) 


0 

200000 000000 

PAT 

0 

400000 000000 

RESULT 

LACS 

77 COR 


LACS 

00 RESULT 



Explan ation 

Header 

Pattern sequenced 

L, AC, and MQ after shift sequence 
SC after shift sequence 


AC and MQ at START. This is true of 


Explanation 

JMS ERROR 
Normalize SC = 1 
JMS NORMER is at 05765 
Header 

Pattern being tested 
L, AC, and MQ after NORM 
SC expected after the NORM 
SC read back to the AC 


Example 12: Interrupt Failure 


Example 


006310 

NO PROGRAM INTERRUPT 
EAE NOP 
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Explanation 


JMS ERROR is at 06307 
Error is no interrupt 
Instruction tested 



4.5.3 (Continued) 


Example 


Explonotion 


006305 


Address of NOP instruction 


4.6 Recovery From Such Errors 

4.6.1 General 

At the completion of an error typeout the processor halts. One of the 
following operations mOy be necessary if more information about the failure 
is required to repair the malfunction: 

1. Repeat the ^xact operation that detected the failure (possibly for a 
scope loop). 

2. Continue normally in the test to generate more information about the 
failure. 

3 . Repeat the sequence of operations or data patterns that detected the 
error . 

AC switch control is built into the program to allow for any of these opera- 
tions. Assuming the processor has halted after an error typeout, the 
operations may be accomplished as follows: 

1 . Repeat same operation 

Set AC switch 2 up or to a 1 
Press CONTINUE 

Note that AC SWO allows deletion of error typeouts for a scope loop. 

2. Continue normally 
Press CONTINUE 

3. Repeat Sequence 

Set AC switch 4 up to a 1 
Press CONTINUE 

In the Random Data Tests, switch 4 a 1 causes the same pair of random numbers 
to be repeatedly shifted 0 to 44g places. This is useful in determining which 
shift the random data first fails. 

4.6.2 To Determine Area in Program that Failed 
4.6.2. 1 From Error Typeouts 
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4.6.2. 1 (Continued) 


Each error typeout includes an address typeout that may be used to determine the 
exact test routine that detected the error. Some of the typeouts include an 
address that points at a common error routine for that type of error and a 
second address that points at the test routine. (Section 4.5.3, example 3 has 
only one octal typeout before the header and example 5 has two. The second 
octal typeout in example 5 (002262) determines which SC test failed.) 

Determine which address to use, go to the numerically sorted program labels 
(section 10.4.1) and find the program labels with addresses lower and higher 
than the one typed. The last program label with an address lower than the one 
typed is in the test routine that failed. 

4. 6. 2. 2 From CAL Routine 

This test program includes a halt at address 00026 that indicates a CAL 
instruction was executed. Pressing CONTINUE at this point causes the 
processor to CAL at address 00027. At the time of the first HALT the 
contents of the AC indicate the contents of address 00020 after the CAL or 
the address + 1 of the CAL. The approximate area of the test program 
that was being executed may be determined by examining the following memory 
addresses . 


Address Contents indicate 

00040 Address + 1 or +2 of last JMS SWITCH 

00057 Starting address of last SCOPE LOOP 

00060 Address +1 or +2 of last JMS SWITCH 

00077 Starting address of last TEST SEQUENCE 

By comparing the contents of these memory locations with the numerically 
sorted symbol list, the test routine (at the time of a CAL, hang up, or 
program wipeout) that was being executed may be determined. 

5. RESTRICTIONS (Not Applicable) 

6. DESCRIPTION 

6.1 Discussion 

6.1.1 Genera I 

The PDP-15 EAE Diagnostic Part 1 verifies correct operation of all EAE 
operations except multiplies and divides. Part 1 itself is written in three 
logical sections as follows: 

Section 1: Set-Up Test 

Verifies correct operation of all EAE set-up operations except LACS. 
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6.1.1 


(Continued) 

Section 2: SC and Basic Shift Test 

Verifies correct operation of the SC and LACS instruction and verifies that the 
AC and MQ will shift left and right 1 place all combinations of 18 bits. 

Section 3: Random Data and Normalize Test 

This section of Part 1 verifies that the AC and MQ will shift random data left 
and right 0 to 44g places, that the NORM and NORMS instructions operate 
correctly, and that the processor interrupts after an EAE operation. 

The above sections are to be used incrementally. That is. Section 1 must 
operate at all margins before Section 2 is run. Section 2 must run at all margins 
before Section 3 is run. 


6.1.2 Test Descriptions 


6. 1.2.1 Set-Up Test 


The Set-Up Test incrementally verifies correct operation of all of the EAE set- 
up instructions except LACS. 


The sequence of testing is os follows: 
Test Mnemonic 


SETUP 

EAERMQ 

NOPAC 

EAECAC 

EAECLQ 

MQITAC 

NOPACI 

NOPMQ 

NOPMQI 

NOPLNK 


Operation(s) Tested 


Does CMQ set MQ = O's to 1 's 
Do all MQ indicators light (visual) 

Does START clear the MQ 
Does MQ = O's to AC = O's 

Does EAE NOP not clear the AC 

Do EAE and bit 8 clear the AC 

Does bit 5 clear the MQ 

Does bit 16 with MQ = 1's set AC to I's 

Does EAE NOP with MQ = 1's alter the AC 

Does EAE NOP with MQ = Ts alter the MQ 

Does EAE NOP with AC = 1's alter the MQ 

Does EAE NOP alter the link 
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6. 1.2.1 (Confinued) 


Test Mnemonic 

Operation (s) Tested 

QONEAC 

Does MQ =l's inclusive OR to AC = I's 

EAESLK 

Do EAE and bit 4 get AC sign to link 

NOPLKI 

Does EAE NOP alter the MQ with link =1 

ACORMQ 

Does AC inclusive OR all patterns to 

MQ = O's and MQ to AC all patterns 

ACLMQ 

Does the LMQ instruction operate as 
specified 

COMPMQ 

Will the MQ complement all patterns 

ACONEQ 

Will the AC=l's inclusive OR to MQ=l's 

EAEABS 

Does the ABS instruction operate as specified 

SC and Basic Shift Test 


The SC and Basic Shift Test incrementally verifies correct operation of the SC 
(including the LACS instruction) and the left and right shifts. The SC Test 
assumes that a NORM instruction with the AC= 200000 generates a stop shift. 

The sequence of testing 

Is as follows: 

Test Mnemonic 

Operation(s) Tested 

sasTi 

(1) Does NORM "stop shift" with AC= 
200000 (visual) SC is set to 77 


(2) Does START clear the SC 


(3) Does LACS get SC = O's to the AC 

NOPSC 

Does EAE NOP alter the SC = O's 

SCT076 

(1) Will the SC set to 76 and + 1 to 77 


(2) Will LACS read SC = 77 to the AC 

SCT074 

Will the SC set to 74 and + 1 to 75 

SCTO70 

Will the SC set to 70 and + 1 to 71 

sao6o 

Will the SC set to 60 and + 1 to 61 
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6. 1.2. 2 (Continued) 


Test Mnemonic 

Operation (s) Tested 

SCTO40 

Will the SC set to 40 and + 1 to 41 

scrooo 

Will the SC set to 00 and + 1 to 01 

SCTOOl 

Will the SC set to 01 aixJ + 1 to 02 

saoo3 

Will the SC set to 03 and + 1 to 04 

saoo7 

Will the SC set to 07 and + 1 to 10 
(Is "high count" generated?) 

saoi7 

Will the SC set to 17 and + 1 to 20 

sa037 

Will the SC set to 37 and + 1 to 40 

SCT077 

Will the SC set to 77 and + 1 to 00 

NOPSCl 

Does EAE NOP alter SC =77 

ALSZER 

Does ALS with SC = 00 "stop shift" 

ALSO! 

Does ALS 1 place shift AC = O's 

ALSLNK 

Does link get to AC 17 on an ALS 1 place 

LNKALS 

Does bit 0 of the AC not go to the link 
on an ALS 1 place 

ALSMQT 

Does ALS alter the MQ 

Does MQO not go to AC 17 

HSALS 

Will ALS shift the AC 1 to 18 places 
bit and no-bit 

LISTS 1 

Will the AC/MQ shift O's place left 

LLSTS2 

Does link go to MQ17 on an LLS 

LLSACT 

(1) Does link not go to AC 17 on an LLS 


(2)Does MQO go to AC 17 on an LLS 

LLSTS3 

Does each bit of theMQ = 1 shift left 

1 place ( 1 bit at a time = 1) 

LLSTS4 

Does each bit of the MQ = 0 shift left 

1 place ( 1 bit at a time = 0) 
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6 . 1 . 2 . 2 (Continued) 


Test Mnemonic 

Operation(s) Tested 

LLSTS5 

Will MQ/AC shift a 1 bit 1 to 44g places left 

LLSTS6 

Will MG)/AC shift a 0 bit 1 to 44_places left 

o . 

LRSTSl 

Will AC/MQ shift right 1 all O's 

LRSTS2 

Does link go to ACO on an LRS 

LRSTS3 

Does AC 17 go to MQO on an LRS 

LRSTS4 

Does AC 17 not go to link on an LRS 

LRSTS5 

Will AC/MQ shift a 1 bit from each position 
right 1 place (1 bit at a tine) 

LRSTS6 

Will AC/MQ shift a 0 bit right 1 place ( 1 bit 
at a time) 

LRSTS7 

Will AC/MQ shift 1 bit (ACO) right 1 to 

44g places 

LRSTS8 

Will AC/MQ shift a 0 bit (ACO) right 1 to 

44g places 

LLSSEQ 

Will the AC and MQ each shift left 1 place 
every combination of 18 bits 

LRSSEQ 

Will the AC and MQ each shift right 1 place 
every combination of 18 bits 

6. 1.2.3 Random Data and Normalize Test 


The Random Data and Normalize Test verifies that the AC/MQ will shift left and 
right random data 0 to 44g places, that the NORM and NORMS instructions 
operate as specified, and that the processor interrupts after an EAE instruction. 

The sequence of testing is as follows: 

Test Mnemonic 

Operation(s) Tested 

RANSHF 

Generates 4096 pairs 6f random numbers, 1 for 
the AC and 1 for the MQ. Each pair of random 
numbers is shifted left signed (LLSS) 0 to 44^. 
places, and the results are tested against a table 
generated by 44 left shift 1 place. 

RANRIT 

Generates 4096 pairs of random numbers 1 for 
the AC and 1 for the MQ. Each pair of random 
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6. 1.2. 3 (Continued) 


Test Mnemonic 


RANSEQ 


RANSQO 


RANSQl 


RANSQ2 


RANSQ3 


RANSQ4 


RANSQ5 


Operation (s) Tested 

numbers is shifted right (LRS) 0 to 44g places, 
and the results are tested against a table 
generated by 44 shift right 1 place. 

Generates 4096 pairs of random numbers 1 for 
the AC and 1 for the MQ. Each pair of random 
numbers is used by RANSEQO to RANSEQ8. 
After each sequence the AC and MQ should 
equal their starting patterns. 

Bit 0 to AC = bit 17 of MQ. Random numbers 
are sequenced 1 left signed, 2 right, 2 left 
signed, 1 right. 

Bit 0 and 1 of AC = bit. 16 and 17 of MQ. 
Sequence is: 

2 right signed 
4 left signed 
4 right 

2 left signed 

Bits 0 to 2 of AC = bits 15 to 17 of MQ. 
Sequence is: 

3 left signed 
6 right 

6 left signed 

3 right 

Bits 0 to 3 of AC = bits 14 to 17 of MQ. 
Sequence is: 

4 right signed 
8 left signed 
8 right 

4 left signed 

Bits 0 to 4 of AC = bits 13 to 17 or MQ. 
Sequence is: 

Left 5 signed 
Right 10 
Left 10 signed 
Right 5 

Bits 0 to 5 of AC = bits 12 to 17 of MQ. 
Sequence is: 

Right 6 signed 
Left 12 signed 
Right 12 
Left 6 signed 
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6. 1.2. 3 (Continued) 


Test Mnemonic 


RANSQ6 


RANSQ7 


RANSQ8 


NRMLZE 

NRMLZI 

NRMLZ2 

NRMLZ3 

NRMLZ4 

NRMLZ5 

INTEST 


Operation(s) Tested 

Bits 0 to 6 of AC = bits 1 1 to 17 of MQ. 
Sequence is: 

Left 7 signed 
Right 14 
Left 14 signed 
Right 7 

Bits 0 to 7 of AC = bits 10 to 17 of MQ. 
Sequence is: 

Right 8 signed 
Left 16 signed 
Right 16 
Left 8 signed 

Bits 0 to 8 of AC = bits 9 to 17 of MQ. 

Sequence is: 

Left 9 signed 
Right 18 
Left 18 signed 
Right 9 

Does NORMS get AC sign = 0 to link 

Does NORMS get AC sign = 1 to link 

Will NORM "stop shift" with ACO / ACl, 
AC0= 1, ACl -0, or ACO = 0, ACl =0 

Does NORM NOT "stop shift" with ACO = ACl, 
ACl = 0, or ACO = 0, ACl = 0 or until SC 
= 77 


Will NORMS normalize the alternate pattern of 
1 and 0 bits for each bit position of the AC and 
MQ. 

Will complement bit patterns normalize 

(1) Will the teleprinter flag cause an interrupt 
after an EAE NOP 

(2) Will the teleprinter flag cause an interrupt after 

an LLS 43_ places 
o 

(3) Does the interrupt not occur until the LLS is 
complete 

(4) Does the interrupt not occur until 2 instructions 
after a normalize. 
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7. 


METHODS (Not Applicable) 

8. FORMAT (Not Applicable) 

9. EXECUTION TIME (Not Applicable) 

10. PROGRAM 

10.1 Core Map (None) 

10.2 Dimension List (None) 

10.3 Macro, Parameter, and Variable Lists (None) 
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^AGE 1 EAE'Pl 

.title eae-pi 

. ABS 

/eaf set up Diagnostic 
/ 

/start at 200 

/PROCESSOR HAUtS AT 201 WITH MQsl'S 

/SET address Switches to 202 $ then do reset and start, 
/ 

/SW0 • DELETE ERROR TYPEOUTS 

/swi - halt after each eae operation 

/SW2 - REPEAT last CAE OPERATION 

/sw3 - halt after each eae sequence 

/SW4 . REPEAT each eae SEQUENCE 

/SW5 * O-'RCPEAT set UP TEST OR SCa AND SHIFT TESTS 
/Sw5 - 1-CYCLE SET UP AND «C AND SWIFT TEST 


/ 


00020 


i 

.LOC 20 




/ 

/CAL subroutine 


00020 

000020 


20 

/20 IN CASE CALt 

00021 

200020 


LAC 20 

/GET address 

00022 

040000 


OAC 0 

/SAvf 

00023 

200027 


LAC ,*4 

/RESTORE 20 

00024 

040020 


OAC 20 


00025 

200000 


LAC 0 


00026 

740040 


HLt 

/HLT DISPLAY 

00027 

000020 

/ 

20 

/WILL CAL IF CONTINUE 



/ 

/ACi MQi 

link and sc for 

typeouts 

00030 



•LOC 30 


00030 

000000 

ACSTRT 

0 


00031 

000000 

HOSTRT 

0 


00032 

000000 

LKSTRT 

0 


00033 

000000 

SCSTRT 

0 


00034 

000000 

ACENO 

0 


00035 

000000 

mqcno 

0 


00036 

000000 

LKCNO 

0 


00037 

000000 

SCENO 

0 



/ 


EJECT 



Page 2 


EAE-Pl 


/routines that test repeat aho stop 

/STOP APTEH MINOR I OOP (SWl) AND REPEAT MINOR LOOP {SW2) 


/ 


30JI40 

600040 

SWITCH 

JMP , 


42/41 

790004 


LAS 


22042 

901322 


AND BITI 


20043 

741200 


SNA 

/minor loop halt? 

2?244 

600047 


JMP 

/NO 

0004$ 

220040 


LAC* Switch 


00046 

740040 


HLT 


00047 

220040 


LAC* switch 


00090 

040097 


DAC .+7 


00091 

440040 


IS2 switch 


00092 

790004 


LAS 


00093 

901323 


AND BIT2 


00094 

740200 


SZA 

/RlPfAT LOOP? 

00099 

620097 


JMP* ,*2 /YES 


00096 

620040 


JMP* SWITCH 

/CONTINUE IN SEQUENCE 

00097 

000000 


0 




/STOP 

APTER MAJOR LOOP (SW3) 

AND REPEAT MAJOR LOOP (SW4} 

00060 

600060 

SWTCHS 

JMP ; 


00061 

790004 


LAS 


00062 

901324 


AND BITS 


00063 

741200 


SNA 

/MAJOR LOOP HALT? 

00064 

600067 


JMP .*3 

/NO 

00069 

220060 


LAC* SWTCHS 


00066 

740040 


HLT 


00067 

220060 


LA04 SWTCHS 


00070 

040097 


OAC SWTCuS-1 


00071 

440060 


ISZ SWTCHS 


00072 

790004 


LAS 


00073 

901329 


AND 81T4 


00074 

741200 


SNA 

/REPEAT major loop? 

00079 

620060 


JMP* SWTCHS 

/CONTINUE 

00076 

620097 


JMP* SWTCHS*! 

/REPEAT LOOP 


/ 

.EJECT 



3 


EAE-Pl 


/DOCS EAE - OR THE HQ TO AC READ 0tS 
/HD SHOULD BE i!ERO EROH RESET KEY 


/ 


00200 



.LOC 200 



00200 

640004 

SETUP 

CMQ 



00201 

74004? 

j 

^LT 



00202 

754000 

/ 

EAERmq 

CLA*4000 /CLEAR 

LINK 

00203 

040031 


QAC HQSTrT 



00204 

040030 


OAC ACSTrT 



00205 

64000? 


EAE*2 


/OR HO I'S TO AC 

00206 

040034 


QAC ACENn 



00207 

741200 


SNA 



00210 

600221 


JMP .♦ll 



00211 

101134 


JMS error 



00212 

001533 


TYRMo 



00213 

001375 


MDR2 



00214 

600030 


ACSTrT*600000 



00215 

600031 


MOSTrT*600000 



00216 

001533 


tyrmo 



00217 

600034 


ACeND^600000 



00220 

000000 


0 



00221 

100040 


JHS SWITCH 



00222 

000202 


CACRmQ 



00223 

201363 


lac NBITi6 



00224 

041261 


QAC CNARk 


/SET END TEST K 



/DOES EAE 

NOP clear the 

ACT 


00225 

754001 

/ 

kiorac 

CLC*4000 /clear 

link 

00226 

040030 


QAC ACSTrT 


/AC aT START 

00227 

501365 


AND KALL7 /MAKE MBHiS BEFORE 

00230 

640000 


EAE 



002S1 

040034 


OAC aCENO /AC 

AT 

END 

00232 

740001 


CHA 



00233 

741200 


SNA 


/AC altered 

00234 

600244 


JMP ,♦10 


/NO 

00233 

101134 


jHS error 



00236 

001514 


TYNOP 



00237 

001366 


HORl 



00240 

600030 

i 

ACSTrT*600000 


/type contents of 

00241 

001514 

f 

TYNOP 


/type text 

00242 

600034 


ACCNO«600000 


/type contents of 

00243 

000000 


0 



00244 

100040 


JMS SWITCH 


/repeat set 

00245 

000225 


NOPAC 


/LOOP TO HERE 


/ 

.EJECT 



Page « 


EAE-Pl 


/DOES EAE AND CLR AC BIT CLR THE AC? 


/ 


00246 

794001 

EACCAC 

CtC*4000 

/clear link 

00247 

641000 


CAE*1000 

/SHOULD CLEAR AC 

00290 

040034 


OAC ACENO 


00291 

741200 


SNA 


00292 

600262 


JMP .*10 


00293 

101134 


jMS error 


00294 

001917 


TYCLA 


00299 

001366 


HORl 


00296 

600030 


ACSTrT*600000 


00297 

001917 


TYCLA 


00260 

600034 


ACENO-^600000 


00261 

000000 


0 


00262 

100040 


JMS SWITf-H 


00263 

000246 

/ 

g 

EAECaC 




/ 

/ 

/Does CIO 

clear THf MO 


00264 

794001 

y 

EACCIQ 

CLC^4000 


00269 

040031 


DAC MQSTrT 


00266 

^40004 


EAE^4 

/set MO TO 1»8 

00267 

790000 


CL A 


00270 

040030 


OAC ACSTrT 


00271 

690000 


CLO 

/clear the mo 

00272 

040034 


OAC ACENO 


00273 

790000 


CLA 


00274 

640002 


EAE*2 

/OR mO 1»S to AC 

00279 

040039 


OAC mQENO 


00276 

741200 


SNA 

/read 0«s back? 

00277 

600311 


JMP ,♦12 


00300 

101134 


JMS error 


00301 

001923 


TYCLO 


00302 

001379 


HDR2 


00303 

600030 


ACtTRTt600000 


00304 

600031 


MQtTRT*600000 


00309 

001923 


TYCLO 


00306 

600034 


ACCNO^600000 


00307 

600039 


MQCNo^600000 


00310 

000000 


0 


00311 

100040 


JMS SWITCH 

/repeat set 

00312 

000264 


CAECi Q 

/start over 


/ 


EJECT 



Page; 5 


EAE-’Pl 




•DOES MO 

compliment prom 

0»S TO I'S 




/ANiO MQ 1 

j 

»S TO AC 



00313 

754000 

/ 

MQlTAC 

CLA*4000 



00314 

040030 


DAC ACSTrT 



00315 

040031 


OAC MQSTrT 



00316 

650004 


CLQ*4 

/clfaR twe: 

MQ AND COMPLIMENT 

00317 

040034 


DAC ACEND 



00320 

750000 


CUA 



00321 

640002 


EAE^2 

/OR THE mQ 

to AC 

00322 

040035 


OAC MQENh 



00323 

740001 


CMA 



00324 

741200 


SNA 



00325 

600337 


JMP ,♦12 



00326 

101134 


JMS error 



00327 

001527 


TYCMO 



00330 

001375 


H0R2 



00331 

600030 


ACSTrT^600000 



00332 

600031 


MQSTrT^600000 



00333 

001527 


TYCMO 



00334 

600034 


ACCND^6000e0 



00335 

600035 


MQeNO'^600000 



00336 

000000 


0 



00337 

100040 


JMS SWITCH 



00340 

000313 

/ 

MQlTiC 





/ 

/&OES EAE 

•NOR WITH MQaI’ 

s alter The ac 


00341 

754000 

/ 

NOPACl 

CLA^4000 



00342 

040030 


OAC AC8THT 



00343 

750001 


CLC 



00344 

040031 


DAC MQSTrT 



00345 

650004 


CLQ*4 

/SET MO TO 

ones 

00346 

501365 


AND KALL7 

/make mb to 

1 IPS 

00347 

640000 


CAC 

/NOP 


00350 

040034 


OAC ACCND 



00351 

740001 


CMA 



00352 

741200 


SNA 

/ones from 

MO TO AC? 

00353 

600364 


JMR .♦ll 



00354 

101134 


JMS error 



00355 

001514 


fYNOP 



00356 

001375 


H0R2 



00357 

600030 


ACSTrT«600000 



00360 

600031 


MQSTrT*600000 



00361 

001514 


TYNOP 



00362 

600034 


ACeNO‘^600000 



00363 

000000 


0 



00364 

100040 


JMS SWITCH 



00365 

000341 


NOPACl 




/ 

.EJECT 



Page « 


EAE-Pl 


/DOES EAE MOP WITH HQ«1’S ALTER Tme MQ 


/ 


00366 

754000 

MOPMQ 

CLA^4000 


00367 

650004 


CLO 4 

/SET MO TO 1*S 

00370 

501365 


AND KALL7 

/hake mb to i#s before 

00371 

640000 


EAE 

/NOP 

00372 

040034 


OAC ACCNb 


00373 

750000 


CLA 


00374 

640002 


EAE*2 


0037S 

040035 


OAC MQCND 


00376 

740001 


CHA 


00377 

741200 


SNA 

/MO still I’ST 

00400 

600412 


JMP ,♦12 


00401 

101134 


JHS error 


00402 

001514 


TVNOP 


00403 

001375 


H0R2 


00404 

600030 


ACSTrT4>600000 


00405 

600031 


MQSTrT*600000 


00406 

001514 


TYNOP 


00407 

600034 


ACCND^600000 


00410 

600035 


HQCNO^600000 


00411 

000000 


0 


00410 

100040 


JM0 SWITCH 


00413 

000366 

/ 

NOPMQ 




/ 

/DOCS NOP 

WITH ACiii’S ALTER 

MQ 

00414 

754000 

NOPMQl 

CUA^4000 


00415 

040031 


OAC HQSTrT 


00416 

650000 


CLQ 


00417 

750001 


CLC 


00400 

040030 

d 

OAC AC8TRT 


00401 

501365 

w 

AND KALL7 

/make MB TO IS before 

00402 

640000 


CAE 

/NOP 

00403 

040034 


OAC ACEND 


00404 

641002 


lacq 

/get mo to AC 

00405 

040035 


OAC HQCNO 


00426 

741200 


SNA 

/any i*s in mo 

00407 

600441 


JMP ',♦12 


00430 

101134 


jMS error 


00431 

001514 


TYNOP 


00432 

001375 


HDR2 


00433 

600030 


ACSTrT*600000 


00434 

600031 


MQSTrT«600000 


00435 

001514 


TYNOP 


00436 

600034 


ACCNO^600000 


00437 

600035 


MOEND^600000 


00440 

000000 


0 


00441 

100040 


JMS SWITCH 


00442 

P00414 


NOPMQl 






AGC 7 


EAE-Pl 


'l-OES \OP alter THr LIMK 




/AC 0'S 0'S, AC I'S MQ 

I'S 

■23443 

650022 

/ 

^CPLNK CLQ 


00444 

140330 

Di*M aCSTrT 


30445 

140331 

D2M HQSTrT 


00446 

140032 

D2M LKSTrT 


00447 

200032 

lac lkstrt 


00490 

740020 

RAR 


00451 

200030 

lac ACSTrT 

/SET LINK FOR TEST 

00452 

901365 

AND KALL7 

/make mb to ones before 

00453 

640000 

EAC 

/NOP 

00454 

750010 

CLK 


00459 

040036 

DAC LKtNn 


00456 

540032 

SAO j^KSTRT 

/LINK altered? 

00457 

600471 

JMP .♦12 


00460 

101134 

JMI fRROR 


00461 

001914 

tynop 


00462 

001411 

N0R3 


00463 

700032 

LKSTrT*700000 

/2lR0 SUPPRESS contents 

00464 

600030 

ACfiTRT4600000 


00469 

600031 

MQ0TRT*600000 


00466 

001914 

tynop 


00467 

700036 

LKCNO*700000 


00470 

000000 

0 


00471 

100040 

JMS SWITCH 


00472 

000447 

NO0lNK#4 


00473 

200032 

LAC lkstrt 


00474 

440032 

iSi LKSTRT 


00479 

741200 

SNA 

/checked ls0 and L»1? 

00476 

600447 

JMP NOPLNK44 


00477 

200030 

lac ACSTRT 


00900 

740200 

S2A 

/checked for AC»1»S 

00901 

600933 

JMP CAESi K 

/Yis 

00902 

650004 

CLQ*4 

/SIT MO TO I'S 

00903 

750001 

CLC 


00904 

040030 

DAC ACSTRT 

/AC start i1»S 

00505 

040031 

OAC MOSTRT 


00506 

140032 

02M LKSTrT 

/LINK START*0 

00907 

600447 

JMP NOPLNK+4 

/ 

•EJECT 




Page s 


EAE-Pl 


/DOES MQ TO AC ALL I'S WITH ACll»S 


00510 

750001 

OONEAC 

CLC 


00511 

040030 


OAC 

ACSTrT 

00512 

040031 


OAC 

mQSTrT 

00513 

650004 


CUQ' 

►4 

00514 

640002 


OMQ 


00515 

040034 


OAC 

accno 

00516 

740001 


CMA 


00517 

741200 


SNA 


00520 

600531 


JM0 

.♦11 

00521 

101134 


JHS 

error 

00522 

001533 



TYRMO 

00523 

001375 



hOR2 

00524 

600030 



aCSTrT«600000 

00525 

600031 



mOSTrT«600000 

00526 

001533 



tyrmo 

00527 

600034 



ACCNn«600000 

00530 

000000 


0 


00531 

100040 


JMS 

SWITCH 

00532 

000510 



QONEaC 


/SET MQ TO I'S 
/HOi»S TO ACl'A 

/AC stay 1»S 


/ 

.EJECT 



EAE-Pl 


^AGE 5 


/LiNfK SET TO 1 AND TO HEROt 


/ 


00533 


EAESLK 

D2M LKSTrT 

00534 

140031 


OHM MQSTrT 

00535 

650000 


CLQ 

00536 

201321 


LAC BIT0 

00537 

040030 


DAC ACSTpT 

00540 

200032 


lac lkstrt 

00541 

740020 


RAR 

00542 

200030 


lac ACSTrT 

00543 

660000 


EAE*20000 

00544 

040034 


OAC ACENO 

00545 

750010 


GLK 

00546 

040036 


OAC LKENn 

00547 

742020 


RTR 

00550 

540030 


SAD ACSTrT 

00551 

741000 


SKP 

00552 

600556 


JMP ,■►4 

00553 

200034 


LAC ACENil 

00554 

540030 


SAD ACSTRT 

00555 

600570 


JMP .♦IS 

00556 

101134 


jMS error 

00557 

001537 


TYSLk 

00560 

001411 


HDR3 

00561 

700032 


LK8TrT^700000 

00562 

600030 


ACS7pT*600000 

00563 

000031 


MQSTrT 

00564 

001537 


TYSLk 

00565 

700036 


LKENO*700000 

00566 

600034 


ACCNo*600000 

00567 

000000 


0 

00570 

100040 


JMS SWITrw 

00571 

000540 


eaeslk*5 

00572 

440032 


ISH lkstrt 

00573 

200030 


LAC ACSTrT 

00574 

140030 


OZM ACSTRT 

00575 

740200 


SHA 

00576 

600540 

/ 

JMP EAESi K*5 


.EJECT 


/start link a to 1 

/MO 0*S 
/4a0000 

/set link initial 
/AC BIT 0 TO link 


/link same as start? 

/ERROR 

/AC altered? 


/LOOP SET? 

/NEXT PASS link 1 TO HERO 



Page 10 


EAE-Pl 


/DOES NOP alter MQb0*S WITH L*1 


/ 


00577 

140030 

noplki 

OZM ACSTrT 

/start AC 0»s 

00600 

140031 


DZM HQSTrT 

/mo 0’S 

00601 

650000 


CLQ 


00602 

201342 


LAC BIT17 

/ItLfMK 

00603 

040032 


oac LKSTrT 


00604 

744020 


RAR^4000 

/CLR LINK# SET LINK 

00605 

501365 


AND KALL7 

/make mb to ones before 

00606 

640000 


CAC 

/nop 

00607 

040034 


OAC ACENn 


00610 

750010 


GUK 


00611 

040036 


OAC LKCNn 


00612 

641002 


LACO 


00613 

040035 


OAC MOENO 


00614 

741200 


SNA 

/MO still 2ER0»S 

00615 

200034 


LAC ACENn 


00616 

751200 


SNAlCLA 

/AC still iERO»S 

00617 

200036 


lac lkcnq 


00600 

740200 


S2A 

/LINK STILL 1 

00601 

600635 


JMP 


00600 

101134 


JMS ERROR 


00603 

001514 


tynop 


00604 

001411 


HORS 


00605 

700032 


LK|TRT«700000 


00606 

600030 


ACSTrT«600000 


00627 

600031 


MQSTrT*600000 


00630 

001514 


tynop 


006S1 

700036 


LKCNO«700000 


00632 

600034 


ACCNO«600000 


00633 

600035 


HQCNO«600000 


00634 

000000 


0 


00635 

100040 


JMS SWITCH 

/CHECK MINOR LOOP SW 

00636 

000577 


NOPLwI 


00637 

100060 


JMS SWTCwS 

/major loop scti 

00640 

000225 


nopac 

/start nop THE AC 


/ 

.EJECT 



PAGE 11 


EAE-Pl 


-tLu AC TO MQ to aC all PATTERNS 
/with MQ initially * (? ANO LINK = 'Z 


/ 


00641 

14003'? 

aCoRmq 

OZH ACSTrT 

/start AC « 0’S 


00642 

140031 


OZM mQSTrT 

/MO always 0*S 


00643 

754000 


CLLlCLA 



00644 

650000 


CLQ 



0064$ 

200030 


lac ACSTrt 

/get next set 


00646 

643000 


EAE*3000 

/AC to MO 


00647 

040034 


OAC ACENo 



00690 

641002 


LACO 

/MQ to AC 


00691 

040035 


OAC MQENn 



00652 

540030 


SAO ACSTrt 

/MQ TO AC SAME AS 

start? 

00693 

741000 


SKP 



00694 

600660 


JMP ,*4 



00699 

200034 


LAC ACEND 

/YCsi TRY AC 


00696 

741200 


SNA 

/AC should be 0 


00697 

600676 


JMP .*17 



00660 

101134 


jMS error 



00661 

001543 


TYSMo 



00662 

001379 


HDR2 



00663 

600030 


ACSTrT<»600000 



00664 

600031 


MOSTRT*600000 



00669 

001945 


TYSMq 



00666 

600031 


MOSTrT*600000 



00667 

600030 


ACS7rT*600000 



00670 

001461 


tycor 



006n 

001947 


TYLAfiO 



00672 

600034 


ACEND*600000 



00673 

600039 


MQENp«600000 



00674 

001463 


TYINrO 



00679 

000000 


0 



00676 

100040 


JMS SWITCH 

/check eoR repeat 

loop 

00677 

000643 


AC0Rm0t2 



00700 

440030 


IS2 ACSTrt 

/TO 777777? 


00701 

600643 


JMP AC0RM0T2 



00702 

100060 


JMS SWTChS 



00703 

000641 


ACORmQ 




/ 

•EJECT 



Page 12 EAE- 

PI 






/WILL AC 

TO MQ to AC ALL 

patterns 



/with mo 

a last PAtTERM 

AND LINK » 1 

00704 

140030 

aclpq 

02M aCSTrT 

/start AC 0»S 

00705 

140031 


02M MOSTrT 

/MQ O'S 

00706 

650000 


CLO 


00707 

201342 


LAC BIT17 

/LINK 1 

00710 

040032 


DAC LKSTrT 


00711 

744002 


stl 

/SET LINK 

00712 

200030 


lac ACSTrT 

/GET NEXT constant 

00713 

652000 


lmo 

/MQ TO 0»S. AC l‘S To MQ 

00714 

040034 


OAC ACENH 

/save AG result 

00715 

750010 


OLK 


00716 

040036 


OAC LKENO 

/SAVE LINK RESULT 

00717 

641002 


lacq 

/get MQ 

00720 

040035 


OAC MQENn 


00721 

540030 


SAO ACSTrT 

/MQ a AC AT START? 

00722 

741000 


SKP 


00723 

600732 


JMP ACLMoC 

/MQ error 

00724 

200036 


LAC LKCNO 


00725 

741200 


SNA 

/LINK*1 at ENOI 

00726 

600732 


JH5 ACLMqE 

/LINK ERROR 

00727 

200034 


LAC ACCNO 


00730 

540030 


SAO ACSTrT 

/AC end « AC start? 

00731 

600753 


JMP .♦22 


00732 

101134 

6CLH0C 

jMS error 


00733 

001622 


TYLMo 


00734 

001411 


HOR3 


00735 

700032 


LKSTrT«700000 


00736 

600030 


ACSTrT«600000 


00737 

600031 


HQSTrT*600000 


00740 

001622 


TYLMo 


00741 

700032 


LKSTrT*700000 


00742 

600030 


ACSTrT*600000 


00743 

600030 


ACSTrT«600000 


00744 

001461 


TYCOR 


00745 

001547 


tylaro 


00746 

700036 


LKCND^700000 


00747 

600034 


ACeNO^600000 


00750 

600035 


MQENO«600000 


00751 

001463 


tyinro 


00752 

000000 


0 


00753 

200035 


LAC MOEND 


00754 

040031 


OAC MOSTRT 

/NCU MQ start 

00755 

100040 


JMS SWITCH 

/repeat set? 

00756 

000711 

/ 

aclmq^s 


00757 

440030 

/ 

IS2 ACSTRT 

/TO 777777? 

00760 

600711 


JMP aCLMq^S 


00761 

100060 


JMS SWTCmS 


00762 

000704 


aclmo 




/ 

.EjEc^ll^ 
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crs THE MO Compliment all patterns 


/ 


00763 

142^3*" 

COMPMq 

D2M aCSTrt 


00764 

20003k^ 


lac acstrt 

/GET NEXT PATTERN 

00765 

040031 


dac mqstrt 


00766 

672000 


LMQ*20000 

/AC TO MO» AC0 TO 

00767 

640004 


CMQ 

/•mq 

00770 

040034 


DAC ACENO 

/SAVE AC result 

00771 

641002 


LACO 

/GET MQ 

00772 

040035 


DAC MQCND 


00773 

740001 


CMA 

//MO 

00774 

540030 


SAD acstrt 

/-MQ » AC START? 

00775 

200034 


lac acend 


00776 

540030 


SAD ACSTRT 

/ACEND s AC START? 

00777 

601011 


JMP ,+12 


01000 

101134 


JMS ERROR 


01001 

001527 


TYCMfj 


01002 

001375 


H0R2 


01003 

600030 


ACSTRT«600000 


01004 

600031 


MQSTRT4600000 


01005 

001527 


TYCMO 


01006 

600034 


ACCND*600000 


01007 

600035 


MQEND+600000 


01010 

000000 


0 


01011 

100040 


JMS SWITCH 


01012 

000764 


COMPmQ*! 


01013 

440030 


isz acstrt 


01014 

600764 


JMP COMPmQ+1 


01015 

100060 


JMS SWTChS 


01016 

000763 


compmq 



/ 

.EJECT 



Pace ia 


CAE-Pl 


/DOES AC TO MQ all i'S WITH MO«l»s 


01017 

750001 

aconeq 

CLC 


01020 

040031 


OAC 

HOSTRT 

01021 

040030 


OAC 

acstrt 

01022 

650004 


CLO^ 

'4 

01023 

642000 


CAE^ 

'2000 /AC I'S 

0i02A 

040034 


OAC 

ACENn 

01025 

641002 


LACC 

1 

01026 

040035 


OAC 

MQENn 

01027 

740001 


CMA 


01030 

741200 


SNA 

/MO STAY 

01031 

601047 


JH0 

.♦16 

01032 

101134 


JMS 

ERKOp 

01033 

001543 



TYSMfl 

01034 

001375 



H0R2 

01035 

600030 



AC8TPT«600000 

01036 

600031 



MQSTrT«600000 

01037 

001543 



tVSMfj 

01040 

600034 



AC£Nn*600000 

01041 

600035 



MQeNb«600000 

01042 

000000 


0 


01043 

100040 


JMS 

SWITCH 

01044 

001017 



ACONrO 


/set MO*i’S 


.EJECT 
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D3ES ABS get aBSOi UTE AC 
/AND NOT disturb LtNKsI OR 


01245 

142032 

EAEABS 

DHM aCSTrT 

01046 

20134? 


LAC BIT17 

01047 

040032 


OAC LKSTrT 

01050 

200032 


lac lkstrt 

01051 

740020 


RAR 

01052 

200030 


lac acstrt 

01053 

644000 


ABS 

01054 

040034 


OAC ACEND 

01055 

750010 


GLK 

01056 

040036 


OAC LKEND 

01057 

540032 


SAD lkstrt 

01060 

741000 


SKP 

01061 

601067 


JMP .*6 

01062 

200030 


lac acstrt 

01063 

741100 


SPA 

01064 

740001 


CMA 

01065 

540054 


SAD ACCNO 

01066 

601100 


JMP ,+12 

01067 

101134 


JMS ERROR 

01070 

001626 


TYABS 

01071 

001411 


H0R3 

01072 

700032 


LKSTrT+700000 

01073 

600030 


ACSTRT*600000 

01074 

001626 


fYABs 

01075 

700036 


LKeND+700000 

01076 

600034 


4CENO^600000 

01077 

000000 


0 

01100 

100040 


JMS SWITCH 

01101 

001050 


EAEABS+3 

01102 

440030 


IS2 acstrt 

01103 

741000 


SKP 

01104 

601112 


JMP NDSEtU 

01105 

200032 


LAC lkstrt 

01106 

740001 


CMA 

01107 

501342 


AND BIT17 

01110 

040032 


OAC lkstrt 

01111 

601050 


JMP EAEAbS+3 


/ 

.EJECT 


/start AC 0’S 
/link 1 


/set link 
/get AC start 
/absolute AC 
/SAVE RESULT 


/LINK SaHE? 

/YEs 

/ERROR. LINK changed 
/AC POSITIVE AT start? 

/NO, Should be pos. abs 

/RESULT AC OKT 

/YEs 

/ABS ERROR LINK OR AC 



Page i6 eae- 

■Pi 






01112 

100060 

KjDSETU 

JMS swtchs 



/TEST repeat major 

01113 

001040 


CAEABS 




01114 

750004 


LAS 




01115 

501327 


AND BIT6 




01116 

741200 


SNA 




01117 

601125 


JMP t+d 




01120 

760057 


law 57 




01121 

101716 


TYl 




01122 

441261 


IS2 CHARK 




01123 

601127 


JMP ',♦4 




01124 

101240 


JMS CRLF 




01125 

201363 


LAC NBITj6 




01126 

041261 


DAC CHARk 




01127 

750004 


LAS 




01130 

501326 


AND BITS 




01131 

741200 


SNA 



/REPEAT ALL SETI 

01132 

600225 


JMP NOPAC 



/cvcle set up test 

01133 

602246 


JMP SCT076 



/CYCLE SET UP AND SHIFT 



/EAE ERROR TYPEOUT ROutiNE 




/GENERAL 1 

PURPOSE 






/links tvptek and all type contents 



/AC*0 

IS Eno of ' 

TYPEOUT 




/AC not ■ 

0 and positive 

IS 

typeTekt 



/AC • AND 

BIT 1=0 IS 

CR* 1 

LP 

TYPE contents 



/AC - AND 

BIT 1»1 fS 

TYPE 

contents 



/AC • AND 

BIT 2=0 TS 

NO ZERO 

UPPRCSS 



/AC • AND 

BIT 2*1 IS 

ZERO 

SUPPRESS 



/AC - AND 

BIT 3=0 IS 

ZERO 

SUPPRE8SS 



/AC • AND 
/ 

BIT 3=1 is 

ZERO 

$UPPRE$S4 

01134 

601134 

/ 

ERROR 

JMP , 




01135 

750004 


LAS 




01136 

741100 


SPA 




01137 

601244 


JMP TTOElE 




01140 

101240 


JMS CRLF 




01141 

201144 


LAC .♦S 




01142 

041276 


OAC SAVErR 




01143 

601167 


JMP typecn 



/CR LF TYPE CONTENTS ERROR 

0il44 

001134 


ERROR 



01145 

221134 

erloop 

lac* error 



/get next type constant 

01146 

041276 


OAC SAVCrR 



/FOR InDIRCcTS 

01147 

506471 


AND (7777 




01150 

041277 


OAC SVER 




01151 

441134 


ISi error 




01152 

740200 


S2A 



/end Of message? 

01153 

601163 


JMP ERCOsiT 



/NO 

01154 

750004 


LAS 



/GET SWITCHES 

01155 

501330 


AND eiT7 




01156 

741200 


SNA 



/DElfye halt? 

01157 

740040 


hlt 



/error halt 

01160 

700401 


TSF 




01J^1 

601160 


JMP 



/WAIT J’LaC 
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01162 

621134 


JMP» ERRnR 

/EXIT ERROR RCUT. 

01163 

741100 

ERCONT 

SPA 

/TVPf TEXT INDICATED? 

01164 

601167 


JMP TTPErN 

/NO, TVE contents 

01165 

101673 


TSR 


01166 

601145 


JMP CRLOnP 



/ 

.EJECT 
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EAE-Pl 


/type contents routines 


/ 


01167 

501322 

TYPECN 

AND BIT! 



01170 

741200 


SNA 

/CARRIAGE 

return indicated 

01171 

101240 


JMS CRLP 

/YES 


01172 

201276 


UAC SAVERR 



01173 

501323 


AND BIT2 



01174 

741200 


SNA 

/SUPPRESS 

ZERO SCT7 

01175 

601215 


JMP tCALl 

/NO. Type 

all 

01176 

201276 


lac saverr 



01177 

501324 


AND BIT3 



01200 

740200 


S2A 

/SUPPRESS 

4 0*S SET? 

01201 

601224 


JMP TCTWO 

/YES 


01202 

221277 


LAC» SVER 



01203 

501214 


AND .*11 



01204 

740200 


SZA 

/upper 5 1 

OHAR ■ 0 

01205 

601215 


JMP tCALi 

/NO. Type 

all 

01206 

221277 


LAC* SVEr 



0i207 

746020 


cllJrtr 



01210 

742020 


RTR 



0i211 

102026 


TWORn 



01212 

000001 


1 



01213 

601220 


JMP TCALL*3 


/SPACE 3 

01214 

777770 


777770 




/ 

.EJECT 
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01215 

221277 

TCALL 

UAC* sver 


01216 

102026 


TyoRO 

/TVPF 6 OCTAL 

01217 

.^00006 


6 


01220 

761442 


law SPACF3 


01221 

101673 


TSR 

/OUTPUT 3 spaces 

01222 

601145 


JMP eRlopp 


01223 

777700 


777700 


01224 

221277 

TCTWO 

UAC* SVER 


01225 

501223 


and .-2 


01226 

740200 


SiA 

/first 4 characters 0 

01227 

601215 


JMP TCALi 

/NO, Type whole word 

01230 

221277 


UAC* SVER 


01231 

746020 


CLLtRTfi 

/position is 2 

01232 

742020 


RTR 

/TO UPPER 2 

01233 

742020 


RTR 

/FOR TyPrOUT ROUT 

01234 

740020 


RAR 


01235 

102026 


TWoRn 

/type upper 2 CHAR 

01236 

000002 


2 


01237 

601220 


JHR TCALI *3 

/SPACE 3 

01240 

601240 

CRLF 

JMR , 


01241 

761465 


law crcooc 


01242 

101673 


TSR 


01243 

621240 


JMP* CRLP 



/ 

.rjEcT 



Page 2 ^ 
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01244 

221134 

TYDELC 

lAC* ERRnR 

0124$ 

441134 


ISZ ERROR 

01246 

740200 

J 

S 2 A 

01247 

601244 

/ 

JMP TYOEi E 

01250 

750-004 


LAS 

01251 

501330 


and BIT7 

01252 

741200 


SNA 

01253 

621134 


JMP* ERRnR 

01254 

206472 


lac (207?07 

01255 

102107 


JMS OTY 

01256 

621134 


JMP* ERRnR 

01257 

777773 

/ 

MI v5 

777773 

01260 

777772 

M I N6 

777772 

01261 

000000 

CNARK 

0 

01262 

000000 


0 

01265 

000000 

svchar 

0 

01264 

000000 


0 

0j265 

000000 


0 

01266 

000000 


0 

01267 

000000 


0 

01270 

000000 


0 

01271 

000007 

SEVEN 

7 

01272 

000240 

TWO40 

240 

01273 

000260 

TWO60 

260 

01274 

000077 

8EVSEV 

77 

01275 

000076 

SEVSIX 

76 

01276 

000000 

SAVE20 

0 

01277 

000000 

SVER 

0 

01300 

777756 

KlS 

777756 

01301 

000060 

sixty 

60 

01302 

000070 

sevnty 

70 

01303 

000074 

SEVN4 

74 

01304 

000041 

rouRi 

41 

01305 

000037 

THREE7 

37 

01306 

000061 

SIXONE 

61 

01307 

000017 

ONESCV 

17 

01310 

000071 

SEVONE 

71 

01311 

000075 

sEvriv 

75 

01312 

000003 

THREE 

3 

01313 

000045 

rouR8 

45 

01314 

000044 

rouR4 

44 

01315 

000043 

F0UR3 

43 

0i3l6 

000034 

THREE4 

34 

01317 

000056 

rivE6 

56 

01320 

252525 

COMBIT 

/ 

252505 


/reac^^eo end or mess. 
/\0 


/RI\'C BELL SET? 
/VO. EXIT 


EJECT 
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-AND MQ 8lT COvSTAMTS 


/ 


01321 

4 02 00!? 

B ! T0 

400000 

01322 

200000 

Bin 

200000 

01323 

100000 

BIT2 

100000 

01324 

040000 

ilT3 

40000 

01325 

020000 

8IT4 

20000 

01326 

010000 

BIT5 

10000 

01327 

004000 

8IT6 

4000 

01330 

002000 

BIT7 

2000 

01331 

001000 

BITS 

1000 

01332 

000400 

Blt9 

400 

01333 

000200 

Bltl0 

200 

01334 

000100 

ilTll 

100 

01335 

000040 

Bins 

40 

01336 

000020 

01113 

20 

01337 

000010 

BIT14 

10 

01340 

000004 

y 

BItl5 

4 

0i341 

000002 

Bin6 

2 

01342 

000001 

Bin? 

1 

01343 

377777 

NBIT0 

377777 

01344 

977777 

NBlTl 

977777 

0|S45 

677777 

\BIT2 

677777 

01346 

737777 

MBITS 

737777 

01347 

797777 

MBiT4 

797777 

01390 

767777 

NBIT9 

767777 

01391 

773777 

NBIT6 

773777 

01392 

779777 

mbit? 

779777 

01393 

776777 

NBIT9 

776^77 

01394 

777377 

MBIT9 

777377 

01399 

777577 

MBIT10 

777577 

01356 

777677 

nbith 

777677 

01397 

777737 

NB1T12 

777737 

01360 

777797 

MB1T13 

777737 

01361 

777767 

MBIT14 

777737 

01362 

777773 

NBin9 

777773 

01363 

777775 

NBlTt6 

777775 

01364 

777776 

mbiti? 

777776 

01369 

777777 

KAUL7 

y 

777777 



/ 

.EJECT 
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01366 191203 

01367 900103 

01370 910000 

01371 191223 

01372 240122 

01373 244040 

01374 770000 


01379 191240 

01376 404040 

01377 404040 

01400 400390 

01401 010391 

01402 404040 

01403 400390 

01404 192191 

01409 191223 

01406 240122 

01407 244040 

01410 770000 


01411 191240 

01412 404040 

01413 404040 

01414 144040 

01419 404003 

01416 900103 

01417 914040 

01420 404003 

01421 901921 

01422 910000 

01423 191223 

01424 240122 

01429 244040 

01426 770000 


01427 191240 

01430 404040 

01431 404040 

01432 230340 

01433 404040 

01434 039001 

01439 035100 

01436 191223 

01437 240122 

01440 244040 

01441 770000 


/message constants 
/ERROR typeoLIT HEAhERS 
/AC contents 
/ 

WDRl .SIXBT <19><12>»C<AC)» 


.SIXBT <15><12>»8TART 


/AC and MQ 
/ 

W0R2 , SIXBT <19><12>* 


.SIXBT <i9><i2>»2TART 

/LINK AC AND Mfi 
/ 

HORS , SIXBT <i9><l2>» 


.SIXBT <i9><i2>*START 


/SC AC 
/ 

H0R4 .SIXBT <15><12>< 


.SIXBT <19><12>»START 


•<77> 


CIAC) C(MO)» 


•<77> 


L C(AC) C{MO)» 


•<77> 


SC CIAC)» 


•<77> 


/3 SPACES 
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01442 

404040 

SPACES 

,SIXBT 

* ’<77> 

01443 

770000 

/4 SPACES 



01444 

151240 

/ 

SPACE4 

•SIXBT 

<15><12>» 

01445 

404040 




01446 

770000 





/ 

•EJECT 


»<77> 
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01447 

191214 

HDR9 

.SIXbT 

<15><12>'L CCaD C(MQ)*<77> 

01490 

404040 




01491 

400390 




01492 

010351 




01493 

404040 




01494 

400350 




01499 

152151 




01496 

770000 




01497 

200124 

/ 

tvpatr 

.SIXBT 

•PAT’<77> 

01460 

770000 




01461 

031722 

TYCOR 

.SIXBT 

’C0R’<77> 

01462 

770000 




01463 

111603 

y 

TYIMCO 

.SIXBT 

’ TNC0»<77> 

01464 

177700 




01469 

191277 

y 

CRCOOC 

.SIXBT 

<19><12><77> 

01466 

191216 

tynrms 

.SIXBT 

<l5><l2>»N0RMf •<77> 

01467 

172215 




01470 

234040 




01471 

770000 




01472 

191216 

TYINTE 

.SIXBT 

<15><12>'N0 PROORaM I|yTERRuPT»<77> 

01473 

174020 




01474 

221707 




01479 

220119 




01476 

401116 




01477 

240522 




01900 

222920 




01501 

247700 




01902 

191211 

INDAT 

.SIXBT 

<j9><l2>MNTIRRUPt DATA ERR0R*<77> 

01903 

162409 




01504 

222229 




01909 

202440 




01906 

040124 




01907 

014009 




01910 

222217 




01911 

227700 




01512 

232401 

y 

tystrt 

.SIXBT 

•START *<77> 

01913 

222477 





/ 

♦EJECT 
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--OPEPatIOv TyPrOUT*; 
/EAE NO operation 


/ 


01514 

151205 

TYNOP 

.sixbt 

< 15 >< 12 > ’EANOP ' 

'<77> 

01515 

011617 





01516 

204077 

/ 






/ 

/EAE ClA 



01517 

151205 

TYCUA 

.sixbt 

<15><12>»EAECLA 

»<77> 

01520 

010503 





01521 

140140 





01522 

770000 

/ 






/ 

/Clear 

MQ 



01523 

151203 

TYCLO 

•sixbt 

<15>C12>*CL0 

»<77> 

01524 

142140 





01525 

404040 





01526 

770000 

/ 






/ 

/COMPLIMEMT 0 



01527 

151203 

TYCMO 

, sixbt 

<i5><l2>»CM0 

»<77> 

01530 

152140 





01531 

404040 





01582 

770000 

/ 






/ 

/OR MO 

TO AC 



01533 

151217 

TYRMO 

.sixbt 

<15><12>‘0RM0AC 

»<77> 

01534 

221521 





01535 

010340 





01536 

770000 

/ 






/ 

/AO0 TO 

LINK 



01537 

151201 

TVILK 

.sixbt 

<i5><12>*AC0TOL 

*<77> 

01540 

036024 





01541 

171440 





01542 

770000 

/ 






/ 

/OR AC 

TO MO 



01543 

151217 

TYSMO 

.sixbt 

<15><12>'0RACMQ 

’<77> 

01544 

220103 





01545 

152140 





01546 

770000 

/ 






/ 

/load AC WITH MO 



01547 

151214 

tylaco 

.sixbt 

<15><12>’LAC0 

•<77> 

01550 

010321 





01551 

404040 





01552 

770000 
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/ 

/ 

/lls 


01553 

01554 

01555 

01556 

151214 

142340 

404040 

770000 

tylls 

/ 

rSIXBT 

<15><12>'LLS 

»<77> 

01557 

01560 

01561 

01562 

151214 

142323 

404040 

770000 

/ 

/llss 

TVLLSS 

.SIXBT 

<15><12>»LLSS 

•<77> 


/ 

.EJECT 
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. LRS 




01563 

151214 

TYlPS 

.SIXBT 

<15><12>»LRS 

•<77> 

01564 

22234;' 





01565 

40404v> 





01566 

770000 

/ 






/ 

/RESULT 




01567 

151222 

TYSIMR 

.sixbt 

<15><12>»RESULT 

*<77> 

01570 

052325 





01571 

142440 





01572 

770000 

/ 






/ 

/tyurss 




01573 

151214 

tylRSs 

.SIXBT 

<15><12>»LRSS 

♦<77> 

01574 

222323 





01575 

404040 





01576 

770000 

/ 






/ 

/TVROSQ 




01577 

151222 

TYROSO 

.SIXbT 

<15><12>’RaN00M 

data SE0UENCED»<77> 

01600 

011604 





01601 

171540 





01602 

040124 





01603 

014023 





01604 

052125 





01605 

051603 





01606 

050477 





01607 

220523 

TYRES 

.SIXBT 

’rESULT‘<77> 


01610 

251424 





01611 

770000 





01612 

151211 

TYOINT 

, SIXBT 

<15><12>' INTERUPT not 0ELAYED»<77> 

01613 

162405 





01614 

222520 





01615 

244016 





01616 

172440 





01617 

040514 





01620 

013105 





01621 

047700 







/ 

•EJECT 







/load mo w 

ITH AC 



0i622 

151214 

TYLMO 

.SIXBT 

<15><12>'LM0 

•<77> 

01623 

192140 





01624 

404040 





01625 

770000 

/ 




01626 

151201 

/ 

/ 

TYABS 

.SIXBT 

<15><12>»ABS 

*<77> 

01627 

022340 





01630 

404040 





01631 

770000 

/ 






/ 

/clb sc 




01632 

151203 

TYCSC 

.sjxbt 

<i5><12>'ClR sc 

•<77> 

01633 

142240 





01634 

230340 





01635 

770000 

/ 






/ 

/LACS 




01636 

151214 

tylacs 

.SIXbT 

<15><12>*LACS 

*477> 

01637 

010323 





01640 

404040 





01641 

770000 

/ 






/ 

/SC CRROB 




01642 

151223 

TYSCCR 

, SIXBT 

<15><12>'SC error »<77> 

01643 

034005 





01-6-44 

222217 





01645 

224077 

/ 






/ 

/NORM 




01646 

151216 

tynorm 

.SIXBT 

<15><12>’N0RM 

•<77> 

01647 

172215 





01690 

404040 





01651 

770000 

/ 






/ 

/SCT SC 




01652 

151223 

TYSSC 

•SlXgT 

<15><1?>»SET SC 

•<77> 

01653 

052440 





01654 

230340 





01655 

770000 

/ 

/ 

/SC*1 




01696 

151223 

TYPLSl 

, SIXBT 

<15><12>’SC*1 

•<77> 

01697 

035361 





01660 

404040 





01661 

770.000 






/ 
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/ 




/AlS mo test 


01662 

151201 

TYALSQ .SIXbT <i5><12>*ALS 

M(3 Te:$T'<77> 

01663 

142340 



01664 

152140 



01665 

240523 



01666 

247700 

/ 




/ 

/ALS 


01667 

151201 

TYALS .SIXET <i5><12>*ALS 

•<77> 

01670 

142340 



01671 

40404^0 



01672 

770000 

/TAPE 3A 

/TYPE string Of characters 
/E 0Hs77»7 


01673 

601673 

typtsr JMP . 


01674 

506471 

AND (7777 


01675 

046470 

DAC TEMYl# 


01676 

226470 

LAC* TEHyI 


01677 

446470 

ISE TEHYi 


01700 

041755 

DAC TYPSaV 


01701 

742020 

RTR 


01702 

742020 



01703 

742020 

RTR 


01704 

041756 

DAC TYRSaV*! 


01705 

742020 

RTR 


01706 

742020 

RTR 


01707 

742020 

RTR 


01710 

101716 

JMS TYPCmR 


01711 

201756 

lac tvpsav*! 


01712 

101716 

JMS TYPCwR 


01713 

201755 

LAC TYPSaV 


01714 

101716 

JMS TYPCwR 


01715 

601676 

JMP TYPThR*3 


01716 

740040 

TYPCWR HLT 


01717 

041757 

OAC TYPSaV*2 

/ACTIVE 

01720 

201755 

LAC TYPSaV 

/test for crlf 

01721 

506473 

AND (777700 


01722 

546474 

SAO (151200 

/crlf? 

01723 

741000 

SWP 

/yCs 

01724 

601732 

JMP ,*6 

/NO 

01725 

201755 

LAC TYPSaV 

/CORRECT IT FOR NEXT 

01726 

506475 

AND (000077 


01727 

:"4l755 

OAC TYPSaV 


01730 

102101 

JMS TYCRi r 

/DO CRlE 

01731 

601713 

JMP TYPCwR-3 

/type last character 

01732 

201757 

lac TYPSaV*? 


01733 

506475 

AND (77 


01734 

546475 

SAD (77 

/end of message? 

01735 

621673 

JMP* tyPtSR 

/YEs 

0i73j6 

741200 

SNA 

/IF 2ERO IGNOR 

01737 

621716 

JMP* typchr 

/iCNtjR 

01740 

744001 

CMAJCLL 
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01741 

346476 


TAD (40 


01742 

741400 


szt 


01743 

601750 


JMP ,*5 


01744 

201757 


lac TYPSaV^2 


01745 

506475 


AND (77 


01744 

346477 


TAD (200 


01747 

601753 


JMP TYpSiV*2 


01750 

201757 


LAC TYPSaV*2 


01751 

506475 


AND (77 


01752 

346500 


TAD (300 


01753 

102107 


JMS OTY 


01754 

621716 


JMP* TYPfiHR 


01755 

000000 

TYPSAV 

0 

/3R0 

01756 

000000 


0 

/2Nd 

01757 

000000 


0 

/ACTIVE char 

01760 

000000 


2 


01761 

000000 


0 



.EJECT 
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/^yPE contents of the AC IN OCTAL 


01762 

601762 

T YPCON 

JMP . 


01763 

102047 


JMS DECOCT 


01764 

102070 


JMS TYPOrT 


01765 

201761 


lac TYPSaV*4 


01766 

102070 


JMS TYPOrT 


0l76r 

201760 


LAC TYPfiAV*3 


01770 

102070 


jMS TYPOrT 


01771 

201757 


lAC TYPSa\>*2 


017T2 

102070 


JMS TYPOrT 


01773 

201756 


LAC TYPSAV*! 


01774 

102070 


JMS TYPOrT 


01 775 

201755 


LAC TYPSivy 


01776 

102070 


JMS TYPOrT 


01777 

102075 


JMS SPACF2 


02000 

621762 


JMP* TYPrON 




/type out 

lowest 3 CHAR IN 

OCTAL 

02001 

602001 

TYPC03 

JMR . 


02002 

102047 


JM3 DECOnT 


02003 

201757 


lac TYPSaV*? 


02004 

102070 


JM$ TYPOrT 


02005 

201756 


lac tVPSAV*! 


02006 

102070 


JMS TYPOrT 


02007 

201755 


LAC TYPSaV 


02010 

102070 


M TYPOrT 


02011 

102075 


SPACF? 


02012 

622001 


jMfH» TYPC03 


02013 

602«13 

typtyt 

JMP 


02014 

102022 


TSR 


02015 

102022 


TSR 


02016 

102022 


TSR 


02017 

102022 


TSP 


02020 

102022 


TSR 


02021 

622013 


JMP* typtyt 


02022 

60202? 

spac 

JMR ; 


02023 

206501 


lac (240 


02024 

102107 


JMS OTY 


02025 

622022 


JMP* SPAr 




/FORMAT FOR TWqRD 




/LAC WORD 





/TWORO 

/VALUE 




/N 

/number of digits 

TO print from left of word 

02026 

740040 

TOCTAL 

hlt 


02027 

046467 


DAC NUVAl # 

/VALUE OK WORD 

02030 

222026 


lac* toctal 

/lumber of word 

02031 

740001 


CMA 


02032 

046466 


DAC NUCT# 

/SAv»f COUNT 

02033 

446466 


ISZ NUCT 

/TNC COMN^ 

02034 

442026 


isi toctal 

/PUSH RETURN POINTFR 

02035 

206467 

TOC^l 

LAC NUVAl 

/I.Oa^ value 

02036 

742010 


RTL 


02037 

740010 


ral 

/SHIFT INTO POSITION 

02040 

046467 


OAC NUVAl 

/SAvr shifted value 

02041 

740010 


RAL 

/PASS THE link 

02042 

506502 


AND (7) 

/^ASK DIGIT 
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PI 





82043 

102070 

TDlGlT 


/type 

DIGIT 

02044 

446466 

IS2 nUCT 

/MOPF 

DIGITS 


02049 

602039 

JMP TOeTl 

/YES* 



02046 

622026 

JMP* TOCTAL 
.EJECT 


/NO • 

EXIT 
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0?047 

602047 

QECONT 

JMP . 


02060 

041755 


OAC typsav 


02051 

74202? 


R^R 


02052 

740020 


RAR 


02053 

041756 


DAC TYPSaV+1 


02054 

742020 


RTR 


02055 

740020 


rar 


02056 

041757 


DAC TYPSaV+2 


02057 

742020 


RTR 


02060 

740020 


RAR 


02061 

041760 


OAC TYPSaV*3 


02062 

742020 


RTR 


02063 

740020 


RAR 


02064 

041761 


OAC TYPSaV*4 


02065 

742020 


RTR 


02066 

740020 


RAR 


02067 

622047 


JMP* OECnNT 


02070 

602070 

TYPOCT 

JHP . 


02071 

506502 


AND (7 


02072 

346503 


TAD (260 


02073 

102107 


JMS OTY 


02074 

622070 


JMP* TypnCT 


02075 

602075 

SPACC2 

JMP , 


02076 

766475 


L4W (77 


02077 

101673 




02100 

622075 


JMP* SPACC2 


02101 

602101 

TYCPUP 

JMP , 


02102 

206504 


LAC (215 


02103 

102107 


JMS OTV 


02104 

206505 


LAC (212 


02105 

102107 


JMS oty 


02106 

622101 


JMP* tycrlF 



102070 

TDlClTaJMS TYPoCT 



102026 

TWORO-JMS TOCTAI 



101716 

tyi»jms 

TYPCHP 



102022 

TSPijMS 

SPAC 



101673 

TSRPJMS 

TyPTSR 

/string 


102101 

TCRPJMS 

tycrl^ 

/CR.LE 


102101 

TI\'«TCR 




101762 

OPS»JMS 

TyPCON 

/contents or AC in octal 


102013 

TYT4JMS 

typtyt 

/TAB 


101762 

OPTfOPS 

/ 



02107 

000000 

/ 

qty 

0 


02110 

707704 


lEm 


02111 

700406 


TLS 


02112 

700401 


TSr 


02113 

602112 


JMP .-1 


02114 

622107 


jMP* OTY 





.EJECT 
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/ 




/rotate 

/ 

LEFT 6 

02115 

000000 

RU6 

0 

02116 

742010 


RTL 

02117 

742010 


rtl 

32120 

742010 


rtl 

02121 

622115 


JMP* RL6 


/SHiri COUNTER AND 
/AC MO SHIFT Test 
/TAPE 3 or POP? EaE test 
/ 

/SWIFT COUNTER TEST 
/UTILI2ES NORMaLIZF INSTRUCTION 
/with no shift to nATA TEST S.C 


02200 



.LOC 2200 


02200 

201274 

SCTSTl 

LAC SEVSFV 


02201 

040033 


OAC SCSTrT 


02202 

201322 


LAC BITl 

/200000 already normalized 

02203 

640400 


N0RM»44 

/SET SC TO 00 

02204 

740000 


NOP 


02205 

641001 


LACS 

/SC TO AC 

02206 

040037 


OAC SCENn 


02207 

741200 


SNA 

/read SCi0*S TO ACI 

02210 

602221 


JMP .♦11 

/YES. continue 

02211 

101134 


JM8 error 


02212 

5501632 


TVCSC 


02213 

001427 


H0R4 


02214 

740033 


SCSTrT*740000 


02215 

001632 


TYCSC 


02216 

001636 


TYLACS 


02217 

740037 


SCEND^740000 


02220 

?00000 


0 


02221 

100040 


JMS SWITCH 


02222 

002206 


SCTST1*6 


02223 

201363 


LAC NBITi6 


02224 

041261 


OAC CHARk 



/ 

.EJECT 



PAGE 35 


EAE-PI 




/DOES EAE NOP alter TME SC 


02225 

140033 

/ 

hOPSC DHM SCSTp-^ 


02226 

501365 

AND KALL7 

/MAkp mb ones BEECRr 

02227 

64000? 

EAE 

/NOP* 

02230 

641001 

LACS 

/GET SC TO AC 

02231 

240037 

DAC SCENr 


02232 

74120? 

SNA 

/SC still ZERO’S 

02233 

602244 

JMP .*11 


0223A 

101134 

jMS error 


02235 

001514 

T YNOp 


02236 

J01427 

MOR4 


02237 

740033 

SCSTRT*74000e 


02240 

001514 

T^NOP 


02241 

001636 

TYLArS 


02242 

740037 

SCEND-^740000 


02243 

00000? 

0 


02244 

100040 

JMS SWITrH 


02245 

002225 

NOPSr 




/DOES SC SET To 76 AND *1 TO 

77 

02246 

200037 

SCT076 UAC SCENh 


02247 

040033 

DAC SCSTrT 


02250 

201342 

LAe PIT17 


02251 

040031 

DH^ MQSTrT 

/NORM 01 

02252 

201322 

UAC BITI 


02253 

040030 

OAC ACSTrT 


02254 

640401 

N0RMi45 

/SET SC TO 76*1 TO 

02255 

040034 

DAC ACCNO 


02256 

641001 

LACS 


02257 

340037 

DAC SCENn 


02260 

941274 

SAD sEvsrv 


02261 

602263 

JMP .*2 


02262 

10252? 

JMS SCERr 


02263 

100040 

JMS swiTrw 


02264 

302246 

SCT076 




y 

/DOES SC SET To 74 AND ♦! TO 

75 

02265 

200037 

SCT074 lac SCENn 


02266 

040033 

DAC SCSTrT 


02267 

201312 

LAC TWREr 


02270 

040031 

DAC MOSTrT 


02271 

201322 

LAC PITI 


02272 

640403 

N0RM«41 

/SC TO 74+1 '0 '5 

02273 

.^40034 

DAC ACENn 

/save for error typ«^ 

02274 

641001 

LACS 


02275 

740037 

uAC SCENn 


02276 

541311 

SAD sEvriv 


02277 

602301 

JMP ,+2 


02300 

102520 

JMS SCERR 


22301 

100040 

JMS SWITCH 


02302 

; 02265 

SCT074 



/ 

.EJECT 
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/DOES SC 

SET To 70 AND 

♦1 

TO 

71 


0?303 

200057 

/ 

SCTO70 

lac SCENn 





07304 

040033 


OAC SCSTrT 





97305 

201271 


lac SEVEm 





02306 

040031 


DAC HOSTrT 





02307 

201322 


lac BITI 





02310 

640407 


MORM.35 



/7. SC TO 7? A\D ♦ 

1 TO 71 

02311 

740034 


OAC ACCNn 



/SAVE FOR error TYPE 


02312 

641001 


lacs 





02313 

740037 


DAC SCENn 





02314 

541310 


SAO SEVOvE 





02315 

602317 


JMP .*2 





02316 

102520 


JMS SCERP 





02317 

100040 


jMS switch 





02320 

002303 

i 

SCTO70 







i 

/WILL SC 

SET To 60 AND 

♦ 1 

TO 

61 


02321 

200037 

SCTO60 

lac SCENn 





02322 

040033 


OAC SCSTrT 





02323 

201307 


lac oNCSrv 



/NORM 17 


02324 

940031 


DAC HQSTrT 





02325 

201322 


lac BIT! 





02326 

640417 


norm;25 



/SET SC TO 60 AND 

♦1 TO 63 

02327 

040034 


OAC ACENn 



/SAVE FOR ERROR TYPE 


02330 

641001 


lacs 





02331 

040037 


OAC SCENn 





02332 

541306 


SAO SIXOnE 



/RCa 


02333 

602335 


JMP .*2 





02334 

102520 


JMS SCCRR 





02335 

100040 


JMS SWITCH 





02336 

902321 


SCTO60 







/WILL SC 

SET To 40 AND 

♦1 

TO 

41 


02337 

200037 

y 

SCTO40 

LAC SCENn 





02340 

040033 


OAC SCSTRT 





02341 

201305 


lac TMREF7 



/norm 37 


02342 

040031 


OAC hOSTrT 





02343 

201322 


lac 8IT1 



/20000 already normalised 


02344 

640437 


\0HM«5 



/SET SC TO 40 and 

♦1 in 43 

02345 

940034 


OAC ACENP 





02346 

641001 


LACS 



/GET SC TO AC 


02347 

740037 


DAC SCENn 



/SAvr for error type 


02350 

541304 


SAD rOURl 



/read 41 FROM sc TO AC 


E2351 

602353 


JMP .♦? 



/yes 


02352 

102520 


JMS SCERR 





02353 

102040 


JMS s--.iTnw 





02354 

702337 


SCTO40 






/ 

.EJECT 



PAC^E 37 


EAE-Pl 


/WILL SC SET To 0 a\!0 *1 TO 1 


/ 


02355 

200037 

SCTO00 

lac sCENH 




0?356 

040033 


OAC SCSTrT 




02357 

201274 


lac SEVSFV 

/NOPm 77 



02360 

040031 


OAC MQSTrT 




02361 

201322 


LAC Bin 




02362 

640477 


NiORM *33 

/SC TO 00 *1 

TO 

01 

02363 

040034 


DAC ACENn 




02364 

641-001 


LACS 




02365 

040037 


OAC SCEMn 




02366 

541342 


SAD RIT17 

/SC READ 017 



02367 

602371 


JMP .*2 

/YES 



02370 

102520 


JMS scerr 




02371 

100040 


JMS SWITriK 




02372 

002355 


SCTO00 






/WILL SC 

SET To 01 AND *1 TO 

02 



02373 

200037 

/ 

SCTO01 

LAC SCENn 




32374 

040033 


OAC SCSTbT 




32375 

201275 


LAC SEVSiX 

/NORM 76 



02376 

040031 


OAC MOSTrT 




02377 

201322 


LAC BITl 




02400 

640476 


32 

/set sc TO 1 

♦ 1 

TO 2 

02401 

040034 


DAC aCCNO 




02402 

641001 


LACS 




02403 

040037 


OAC SCENO 




02404 

541341 


SAD BIT16 




02405 

602407 


JMP ,*2 




02406 

102520 


JMS SCERR 




02407 

100040 


JMS SWITCH 




02410 

002373 


SCTO01 






/ 

/WILL SC 

SET To 03 AVO ♦! TO 

04 



02411 

200037 

/ 

SCTO03 

LAC SCENn 




02412 

340033 


OAC SCSTRT 




02413 

201303 


LAC SEVN4 

/norm 74 



02414 

040031 


OAC MQSTrT 




02415 

201322 


LAC BITl 




02416 

640474 


norm *30 

/SET SC TO 3 

♦1 

TO 4 

02417 

040034 


OAC ACENn 




02420 

641001 


LACS 




02421 

i' 4 8 0 3 7 


OAC SCENn 




02422 

541340 


SAD GITI? /SC TO AC 

• 47 



02423 

602425 


JMP ,*2 

/yEs 



02424 

102520 


JMS SCERR 




02425 

10004? 


JMS SWITCH 




02426 

L32411 


SCTO03 





/ 

.EJECT 



PAGE 38 


EAE’Pl 




/WILL SC 

SET To 07 AND 

0?427 

200037 

SCTO07 

LAC SCENn 

02430 

740033 


DAC SCSTrT 

0?431 

201302 


lac SEVNtv 

02432 

040031 


DAC HQSTrT 

02433 

201322 


LAC BITI 

02434 

640470 


norm *24 

02435 

040034 


DAC ACEMn 

02436 

641001 


LACS 

02437 

040037 


DAC sctNn 

02440 

541337 


SAD elTl4 

02441 

602443 


JMP .*2 

02442 

102527 


JHS SCERR 

02443 

100040 


JMS SWITCH 

02444 

002427 


SCTO07 



/ 

/WILL SC 

SET To 17 AND 

02445 

200037 

SCT017 

LAC SCENln 

02446 

040033 


DAC SCSTrT 

02447 

201301 


lac sixty 

02450 

040031 


DAC MOSTrT 

02451 

201322 


LAC BITI 

02452 

640460 


norm *14 

02453 

040037 


DAC SCENO 

02454 

641001 


LACS 

02455 

040037 


DAC SCCNh 

02456 

541336 


SAD BITIS 

02457 

602461 


JMP .♦2 

02460 

102520 


JHS SCERR 

02461 

100040 


JMS switch 

02462 

002445 


SCTOi 7 



/WILL SC 

SET To 37 AND 

02463 

200037 

SC7037 

LAC SCCNh 

02464 

200033 


LAC SCSTrT 

02465 

201335 


LAC BIT12 

02466 

040031 


OAC MQSTrT 

02467 

201322 


LAC BITI 

02470 

640440 


NORM. 4 

02471 

040034 


DAC ACENn 

02472 

641001 


LACS 

02473 

040037 


DAC SCCNn 

02474 

541335 


SAD BITI? 

02475 

602477 


JMP .*2 

02476 

172520 


JMS SCERR 

02477 

100040 


JMS SWITCH 

02500 

r02463 


SCT0S7 


/ 

.EJECT 


1 TO I? 

/\’OPh 70 

/SET SC TO 7 *1 TO 10 

/SC TO AC * 10? 

/YEs 

1 TO 20 

/NOR^' 60 

/SC TO 17+1 TO 20 

/SC to AC « 20? 

/YES 

1 TO <0 

/NORM 40 

/SET SC TO 37 *1 To 40 

/SC TC iC » 40? 

/VCS 
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/‘.'ILL SC SET Tr 77 AVC *1 TO ?0 


/ 


22501 

200337 

SCT077 

lac SCEMr 


2 5 0 2 

/42?33 


OAC SCSTrt 


32503 

201274 


lac sEvsrv 

/NORM 0 

3 2504 

.‘40031 


DAC VQS'^R*^ 


02505 

201322 


lac BlTl 


32506 

640400 


norm, 44 

/set sc 

02507 

040034 


DAC ACENn 


32510 

641001 


lacs 

/GET Sc TO AC 

02511 

.:’4 2 03 7 


OAC ?CENr 


32512 

741200 


SNA 

/SC TO 4C ® 00? 

??5l3 

602515 


JMP ,*2 

/YES 

02514 

102520 


JMS SCERR 


02515 

100040 


JMS 


02516 

002501 


SCT077 


02517 

602555 


jMP NOPSCl 



^ .eject 
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0?520 602520 

0252i 200031 

0?522 740001 

02523 501274 

02524 040035 

02525 341342 

02526 501274 

02527 040036 

02530 101134 

02531 ^01642 

02532 602520 

02533 001427 

02534 740033 

02535 001442 

02536 600030 

02537 001646 

02540 740031 

02541 001652 

02542 740035 

02543 001656 

02544 740036 

02545 001461 

02546 001636 

02547 740037 

02550 001463 

02551 001442 

02552 600034 

02553 000000 

02554 622520 


02555 201274 

02556 040033 

02557 201322 

02560 640401 

32561 501365 

02562 640077 

02563 641001 

02564 340037 

02565 540033 

02566 602600 

02567 101134 

02570 .'01514 

02571 '01427 

02572 740033 

02573 301514 

22574 740333 

02575 ,.‘01636 

02576 740337 

22577 300300 

02600 100040 

02601 002555 

02602 100060 


SCEPR JHP . 

lac -mQSTrT 
CMA 

AND SEVSrV 
OAC MQENn 
TAD BIT17 
AND SEVSrV 
OAC LKEMH 
jMS error 
tyscfr 

SCERR+600000 

HDR4 

SCSTRT4740000 

SPACP3 

ACSTrT*600000 

tynorm 

HOSTrT«740000 

TYSSr 

MQENo*740000 

typlsi 

LKEND4740000 

tycor 

tylacs 

SCCNO«740000 

TYINCO 

SPACF3 

ACeND'^600000 

0 

JMP* scerr 

/ 

/ 

/DOES EAC NOP alter SC = 77 
/ 

NOPSCl LAC SEVSPV 
OAC SCSTRT 
LAC BITI 
NORM-43 
AND KALL7 
EAE*77 
lacs 

OAC SCCNn 
SAD SCSTRT 
J^IP .*12 
JMS error 

TYVOP 

lOR4 

SCSTrT*740?00 

tykop 

SCSTrT*740007 

TYLArS 

SCENO*74?270 

2 

JMS SWlTrM 
vOPSri 
JMS SWTCmS 


/GET Sc OF norm 
/SHOULD SET SC TO 

/SC should 4-1 TO 
/TYPF OUT 

/SC ERROR 
/ERROR address 

/SC at start 

/AC aT start 

/SC PORTION or NORM 

/SHOULD SET SC TO 

/SC should ♦! TO 

/SC TO AC EQUALED 

/AC after norm 


/SET SC TO 77 
/make mb to ONES BEFORE 

/NOP Should not alter sc 

/get sc to AC 
/sc TO AC ■ 77? 
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0?603 202246 SCT076 

/ 
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32624 

140030 

/SHIFT tests 

/ALS - accumulator left shift 

/DOES ALS AC = 0*S ALTER THE 
/ 

ALSZER D2M ACSTpT 

AC? 

22605 

140031 

OZM hQSTrt 


02606 

140032 

OHM lkstrt 


02607 

140033 

OZM sCSTrT 


02610 

651000 

CLO^1000 

/clear AC - MO AND LINK 

02611 

744000 

CLL 


02612 

640700 

ALS 


02613 

040034 

OAC ACEMn 


02614 

750010 

CLK 


02615 

040036 

OAC LKEND 


02616 

641001 

lacs 


02617 

040037 

OAC SCENn 


02620 

200034 

lac ACEMh 


02621 

741200 

SNA 


02622 

741000 

SKP 


02623 

103175 

JMS ALSERR 


02624 

100040 

JMS SWITCH 


02625 

202610 

ALSZrR*4 

/ 


02626 

201342 

/ 

/DOES ALS 01 Ac s 0»S OK 
/ 

AL801 LAC BIT17 

/ALS 01 

02627 

040033 

OAC SCSTrT 


02630 

140030 

OZM aCSTrT 

/AC 0»s TO start 

02631 

140031 

OZM MOSTPT 

/MO 0'S 

02632 

140032 

ozv lkstrt 

/link IS ZERO 

02633 

650000 

clq 


02634 

641000 

£AE*1000 


02635 

744000 

CLL 


02636 

640701 

ALS 21 

/SHIFT AC LEFT 1 

02637 

040034 

OAC ACENn 


02640 

750010 

GLK 


02641 

040036 

OAC LKENin 

/LINK FOR TYPEOUTS 

02642 

641001 

lacs 


02643 

040037 

OAC SCENn 

/SC FOR typeouts 

02644 

200034 

LAC ACENn 


02645 

741200 

SNA 


02646 

741000 

SKP 


02647 

103175 

JMS ALSERR 


02652 

200031 

LAC mQSTrT 


02651 

652000 

lM3 


02652 

100040 

JMS SWlTpH 


02653 

002634 

ALS01 *6 


02654 

200031 

lAC mQSThT 


02655 

740200 

SZA 


02656 

602663 

JMP .+5 


02657 

750001 

etc 


02660 

^340031 

OAC mQSTrt 

/ 2 Nn PASS MQ a I'S 

02661 

640004 

EAE*4 


02662 

602634 

jMP ^S01 *6 
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/LINK TO 

AC 17 




/BIT s 0 

L*0# BIT r0 L®1 * 

BIT a 1 L » 0» BIT » 

0?663 

140030 

/ 

ALSLNK 

OHM ACSTrT 

/start AC 0'S 

02664 

140031 


OHM MQSTrT 


02665 

140032 


OHM lKSTrT 

/link start 0 

02666 

650000 


CL9 


02667 

200032 


lac lkstrt 


02670 

740020 


HAR 

/link * 0 or 1 

02671 

200030 


lac acstrt 


02672 

640701 


ALS 01 


02673 

040034 


DAC ACENn 


02674 

750010 


GLK 


02675 

040036 


DAC LKENO 


02676 

641001 


LACS 


02677 

040037 


OAC SCENn 


02700 

200030 


lac acstrt 


02701 

740010 


RAL 


02702 

340032 


TAD lkstrt 


02703 

540034 


SAO ACENh 


02704 

741000 


$KR 


02705 

103175 


JMS ALSErR 


02706 

100040 


JM8 SWITrM 


02707 

002666 


AL8LNK*3 


02710 

200032 


LAC lkstrt 


02711 

440032 


ISH lkstrt 


02712 

741200 


SNA 

/2N0 PASS L»1 

02713 

602666 


JMR ALSLNK*3 


02714 

140032 


OHM LKSTrT 


02715 

200030 


lac ACSTrT 


02716 

440030 


ISH acstrt 


02717 

741200 


SNA 

/3Rn and 4TH pass 

02720 

602666 


JMP ALSLNiK*3 



/ 
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/does als alter THr link » 


/ 


02721 

140031 

lnkals 

D2M mQSTrT 

02722 

140030 


D2M ACSTrT 

02723 

140032 


02M LKSTRT 

02724 

201342 


LAC B1T17 

0272S 

040033 


tlAC SCSTrT 

02720 

050000 


CLQ 

02727 

200032 


LAC LKSTrT 

02730 

740020 


RAR 

02731 

200030 


lac ACSTRT 

02732 

640701 

KALS01 

ALS 01 

02733 

040034 


OAC agcnr 

02734 

641001 


lacs 

0273S 

040037 


OAC SCENO 

02730 

7S0010 


CLK 

02737 

040036 


DAC LKEND 

02740 

540032 


SAD LKSTRT 

02741 

741000 


SKP 

02742 

103175 


JHS ALSERR 

02703 

100040 


UMt SWITCH 

02740 

002726 


LNKAlS*5 

02705 

200032 


LAC LKSTRT 

02700 

440032 


lkstrt 

02747 

741200 



02750 

602726 


jm lnkal s*5 

02751 

200030 


lac acstpt 

02752 

201321 


LAC BIT0 

027S3 

540030 


SAD ACSTRT 

02750 

602760 


JMP .♦# 

02755 

140032 


02M LKSTRT 

02750 

040030 


OAC ACSTRT 

02757 

602726 


JMP LNKAi 8«5 


/ 

.CJCCT 


OR 5! 

/MQ always s 2 
/start AC»0 
/LINK start 0 

/SC • 01 

/link *1000 

/AC • 0 OR 401000 
/SAvr AC result 
/SAVE sc result 

/ltnk same as strtt 
/VES 


/2ND and 4TH RAS L • 1 

/AC 0 already « 1 
/SAD AND 4TH PASS 


/ACt400000 
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/DOES ALS alter the HQ 


/ 


02760 

140031 

ausmot 

OEM MQSTrT 

/iST passes mo ? 0*S 

02761 

140030 


OEM ACSTRT 


02762 

140032 


OEM LKSTRT 


02763 

201342 


LAC BIT17 


02764 

040033 


OAC SCSTRT 

/ALS 01 PLACE 

02765 

200032 


lac lkstrt 


02766 

740020 


RAR 

/Lti OR 0 

02767 

200031 


LAC MQSTRT 


02770 

692000 


LMO 

/MQ • 0'S OR I'S 

02771 

200030 


LAC ACSTrT 

/AC • 0*S OR I'S 

02772 

640701 


ALi 01 


02773 

040034 


OAC ACCNO 


02774 

750010 


CLM 


02775 

040036 


OAC LKCNB 


02776 

641001 


LACS 


02777 

040037 


OAC SCCNR 


03000 

641002 


LACO 


03001 

040035 


OAC MQCND 


03002 

940031 


SAD MQSTRT 

/MQ same AS START! 

03003 

603017 


JMP ,♦14 /YES 


03004 

101134 


JMS ERROR 


03009 

001662 


TYALSQ 


03006 

001411 


H0R3 


03007 

700032 


LK8TRT4700000 


03010 

600030 


ACttRT*600000 


03011 

000031 


MQSTRT 


03012 

001667 


tYALR 


03013 

700036 


LKSNO«7000I0 


03014 

600034 


ACCNO«6000f0 


03015 

600035 


MQCNO^600000 


030i6 

000000 


0 


03017 

100040 


JMS SWITCH 


03020 

002765 


AL8MoT*5 


03021 

200032 


LAC lkstrt 


03022 

440032 


isi lkstrt 

/EVERY OTHER RA8S L § 1 

03023 

741200 


SNA 


03024 

602765 


JMR AL8MoT*5 


03025 

140032 


OEM lkstrt 

/NEXT PASS L ■ 0 

03026 

200030 


lac acstrt 


03027 

740001 


CMA 

/AC»0’S. 1*S. 0*S» 1»S 

03030 

040030 


OAC acstrt 


03031 

740200 


SEA 


03032 

602765 


JMR AL8M0T*5 


03033 

200031 


LAC MQSTrT 

/MQ • 0'S 4 PASSES I'S 4 PASSES 

03034 

740001 


CMA 


03035 

040031 


OAC MQSTRT 


03036 

740200 


SEA 

/MQSTRT back to 0»S? 

03037 

602765 


JMR ALSMOT^S 

/NO, test Ml • 1»S 

03040 

100060 


JMS SWTChS 


03041 . 

002604 


ALSERR 



/ 

.EJECT 
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AC0 CO 'I'o LIMK PROPERLV 

/Ihmediately Following an als left shift 

/ 0-.0 » 0 -i » 1^0 * 1«1 


03042 

14e^32 

SGNSHf 

LKSTrT 

/LK TO 0 FIRST 

03043 

140 :‘3l 


OZM MQSTpT 

/TO compare link Only 

03044 

20 x.:.! 


I.AC BIT0 


03045 

040030 


OAC acstht 

/FIRST AC0S1 goes to 0 

03046 

201342 


LAC BIT17 


03047 

040033 


OAC SCSTrT 

/SHlFTstl 0PLACE 

03050 

200032 


lac lkstrt 


03051 

740020 


RAR 

/make L’START 

03052 

200030 


lac ACSTrT 


03053 

640701 


ALS 01 

/AC0il GOES TO 0 OR « 0 COES TO 1 

03054 

660000 


eAe*20000 

/GET SIGN OF AC 

03055 

040034 


OAC ACENO 

/SAVE FOR TYPEOUTS 

03056 

750010 


GLK 


03057 

040036 


DAC LKENn 

/SAVE FOR TYPEOUTS 

03060 

540031 


SAO mQSTrT 

/LiCORRECT RESULT 

03061 

603077 


JMP NSNERR 

yYES 

03062 

101134 


jMS error 


03063 

001667 


tyalr 


03064 

740033 


SC87RT*740000 


03065 

001537 


TYSLi< 


03066 

001411 


HORS 


03067 

700032 


LK8TrT*700000 


03070 

600030 


ACSTrT*600000 


03071 

001667 


TYALS 


03072 

001537 


TYSLk 


03073 

700036 


LKENd«700000 


03074 

600034 


ACCNO*600000 


03075 

001607 


TYRES 


03076 

000000 


0 


03077 

100040 

nsnerr 

JMS SWITCH 

/END SCOPE LOOP 

03100 

003050 


SGNSHF*6 


03101 

200032 


lac lkstrt 


03102 

440032 


1S2 lkstrt 


03103 

741200 


SNA 


03104 

603050 


JMP SGNSHr*6 

/THIS PASS Lil 

03105 

140032 


OZM lkstrt 


03106 

201322 


lac BITl 


03107 

540030 


SAD ACSTrT 

/TESTED SICN*1 

03110 

603114 


JMP HSALS 

/YES 

03111 

040030 


DAC ACSTRT 


03112 

440031 


ISH MQSTRT 


03113 

603050 


JMP SGNSI4F^6 



/ 

.EJECT 



Page as 


EAE-Pl 


/WILL ALS shift 1 TO 18 PLACES! 
/IST PASS BIT 2N0 PASS NO BIT 


/ 


03114 

140031 

HSALS 

DZM HQSTrT 


03119 

201342 


LAC BlTl? 


03118 

040030 


OAC ACSTRT 


03117 

140032 


OZM LKSTrT 


03120 

103216 


JHS SiNAi S 


03121 

201300 


LAC K18 


03122 

040010 


OAC 10 


03123 

202732 


LAC KALS01 


03124 

043134 


OAC HSALSC 


03129 

201342 


LAC BIT17 


03128 

040033 


OAC SCSTRT 


03127 

200032 

MSALSL 

LAC LKSTrT 


03130 

740020 


RAft 


03131 

200031 


LAC MQSTRT 

/HO alternates 

03132 

892000 


LHO 

/from 1*S TO B»S 

03133 

200030 


lac acstrt 


03134 

840701 

HSALSC 

ALS 01 

n TO 18 PLACES 

03139 

040034 


OAC ACCNQ 


03136 

790010 


CLK 


03137 

040038 


OAC LKCNB 


03140 

641001 


LACS 


03141 

040037 


OAC SCCNO 


03142 

740200 


SZA 

/sc GO TO ICRO! 

03143 

803191 


JMP .♦8 


03144 

200038 


LAC LKENO 


03149 

940032 


SAO LKSTRT 

/MAS link altered 

03148 

200034 


LAC ACENQ 


03147 

983244 


SAO* SALSRR 

/RESULT OF SHIFT OKI 

03190 

803192 


JMP .♦2 


03191 

103179 


JHS ALSERR 


03192 

100040 


JHS SWITCH 


03193 

003127 


MSALSL 


03194 

200031 


LAC MQSTRT 


03199 

740001 


CHA 

/EVEN PASSES HO • 777777 

03198 

040031 


OAC hostrt 


03197 

443134 


|S2 HSALfE 

/increment COUNT 

03180 

443244 


isz salsrp 

/advance result pointer 

03181 

440033 


ISZ scstrt 

/FOR TyPEOUTS SC*1 

03182 

440010 


!SI 10 

/SHirT 18 TIMES! 

03183 

803127 


JMR HSALSL 


03184 

440032 


ISi LKSTRT 

/NO BIT PASS L • 1 

03189 

200030 


lac acstrt 


03186 

740001 


CHA 

/2N0 PASS AC STRT»777776 

03187 

040030 


OAC acstrt 


03170 

741100 


SPA 

/HAnr 2 PASSES! 

03171 

603120 


JHP HSALS*4 

/NO, Shift no bit 

03172 

100080 


JHS SWTCWS 


03173 

003114 


HSALS 


03174 

603310 


JHP LL8TS1 



/ 
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03175 

03176 

03177 

03200 

03201 

03202 

03203 

03204 

03205 

03206 

03207 

03210 

03211 

03212 

03213 

03214 

03215 


03216 

03217 

03220 

03221 

03222 

03223 

03224 

03225 

03226 

03227 

03230 

03231 

03232 

03233 

03234 

03235 

03236 

03237 

03240 

03241 

03242 

03243 

03244 

03245 

03267 


a4ls instruction 
/common error TYPEOUT 
/ 

6031755 ALSERR 

101134 
001667 
740033 
403175 
001447 
500032 
600030 
600031 
001457 
500036 
600034 
001607 
001636 
740037 
000000 
623175 

/ 

f 

/SIHULATI ai.$ operation 
/STORES SHIFTS 1 To 10 PLACES 


/ 


603216 

simals 

JMF . 

206506 


LAC iRESuLT-i 

040017 


OAC 17 

040015 


OAC 15 

341342 


TAD ilTl7 

043244 


OAC SALSpP 

201300 


LAC K16 

040016 


DAC 16 

200032 


lac lkstrt 

740020 


RAR 

200030 


lac acstpt 

740010 


RAL 

060017 


OAC* 17 

440016 


iSi 16 

2000S2 


LAC lkstrt 

740020 


RAR 

220015 


LAC* 15 

740010 


RAL 

060017 


DAC* 17 

440016 


!S2 16 

603234 


JMP ;-6 

623216 


JMP* SlMiLS 

000000 

salsrp 

0 

000000 

RESULT 

i 

0 


/ 

.LOC RESULT*22 


/ 

.EJECT 


JMR , 

JMS error 

TYALR 

SCSTrT*740000 

A18ERR*400000 

hOR5 

LK$TrT*500000 

ACSTrT*600000 

HQSTrT*600000 

TYPAtR 

LKENO^500000 

ACENO^600000 

TYRES 

TYUACS 

SCENO«740000 

0 

JMP* ALSFRR 


/SIT RESULT POINTER TO START 


/reserve 17 SHIFT LOCATIONS 
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03267 

03270 

03271 

03272 

03273 

03274 

03275 

03276 

03277 

03300 

03301 

03302 

03303 

03304 

03305 

03306 

03307 


03310 

03311 

03312 

03313 

03314 

03315 

03316 
03Si7 

03320 

03321 

03322 

03323 

03324 

03325 

03326 

03327 

03330 

03331 

03332 

03333 

03334 

03335 

03336 

03337 

03340 

03341 


750004 

CNOSHF 

LAS 

501327 


ANO 8IT6 

741200 


SNA 

603300 


JMP ,*6 

760054 


law 54 

101716 


TYl 

441261 


tsz chark 

603302 


JMP .♦A 

101240 


JMS CRLF 

201363 


lac NBIT 16 

041261 


DAC CHARk 

750004 


LAS 

501326 


ANO BITS 

741200 


SNA 

602246 


JMP SCT076 

605002 


JMP RANSmF 

000254 

COMMA 

i 

254 


f 

/lls ano 

LRS BASIC TESTS 


/tare 4 
/ 

OF EaE PrlP7 TEST 


/ 

/LONO left shift 
/ 


/ 

/LLS 01 

ALL ZERO’S 

140030 

llstsi 

02H ACSTflT 

140031 


02H MOSTpT 

140032 


02M LKSTRT 

201342 


LAC BIT17 

040033 


DAC SCSTrT 

650000 


CLO 

754000 


CLAlCLL 

640601 


LLS 01 

040034 


DAC ACCNn 

750010 


6LK 

040036 


OAC LKCNO 

641001 


LAOS 

040037 


OAC SCENn 

641002 


LACQ 

040035 


OAC HQCNd 

741200 


SNA 

200034 


lac accnr 

741200 


SNA 

200036 


LAC LKCNO 

741200 


SNA 

200037 


LAC SCENO 

741200 


SNA 

603340 


JMR >2 

103745 


JMS LL8ERR 

100040 


JMS SWITCH 

003315 


LLSTsi*5 


/ 

.CjCCi 


/comma at ENID? 
/NO 


/cvclc both tests 

/NO, STAY IN SHIFT TfST 
/repeat from setup test 


/StART SCORE LOOP 
/CLR AC AND LINK 


/MO still 0»S? 
/AC still 0’SI 
/link still 0»si 

/sc eo TO 2 ER 0 T 
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/Does Ll^)K GO TO Hftl7 ON 





, 0»>1 

' 1 1 ’'i 

23342 

140031 

LLSTS2 

D2M 

mQSTrt 

03343 

140030 


DZM 

ACSTRT 

03344 

140032 


D2M 

LKSTrT 

03345 

201342 


LAC 

8IT17 

03346 

040033 


OAC 

scstrt 

03347 

200031 


LAC 

mqstrt 

03350 

652000 


lmo 


03351 

200032 


lac 

LKSTrT 

03352 

740020 


RAR 


03353 

200030 


lAC 

acstrt 

03354 

640601 


LLS 

01 

03355 

040034 


OAC 

ACCNO 

03356 

750010 


GLK 


03357 

040036 


OAC 

lkcnr 

03360 

641001 


LACS 

03361 

040037 


OAC 

SCENn 

03362 

641002 


lacq 

03363 

040035 


DAC 

MQENn 

03364 

200032 


LAC 

LKSTRT 

03365 

740020 


RAR 


03366 

200031 


LAC 

mostrt 

03367 

740010 


RAL 


03370 

540035 


8A0 

MQCNO 

03371 

741000 


SKf 


03372 

103745 


JMS 

llscrr 

03373 

100040 


JM8 

switch 

03376 

003347 



LLST52*5 

03375 

200032 


LAC 

lkitrt 

033t6 

440032 


IS2 

LKSTrT 

03377 

741200 


SNA 


03400 

603347 


JMP 

LLST82*5 

03401 

140032 


D2H 

LKSTrT 

03402 

200031 


LAC 

mqstrt 

03403 

440031 


IS2 

MQ8TRT 

03404 

741200 


SNA 


03405 

603347 


JMP 

LL8TS2*5 


/ 

•EJECT 


ILS 


/LIS 01 

n PASSES » 0 START SCOPE LOOP 
n PASSES i 1 (M017) 

/Ufl EVERT 2ND PASS 
/AC always • 0 

/save results 


/END SCOPE LOOP 

/8NO OR 4TH PASST 
/NEXT PAiS L • 0 


/MADE WITH MOl7«it 



/DOCS link not CO TO AC17 ON AN LlS 
/DOCS MO0 CO To ACi7 ON AN LLS 


/ 


03406 

140030 

llsact 

OZM ACSTrT 


03407 

140031 


02M MQST0T 


03410 

140032 


OZM LKSTffT 


03411 

201342 


LAC BIT17 


03412 

040033 


DAC SCSTrT 


03413 

200031 


lac mqstrt 

/start score LOOP 

03414 

692000 


LMQ 


03419 

200032 


LAC LKSTrT 


03416 

740020 


RAR 

/L00. 1* 0* 1 

03417 

200030 


LAC ACSTrT 

/ AC*0 * 0 f It 1 

03420 

640601 


LLS 01 


03421 

040034 


OAC ACCNO 


03422 

790010 


8LK 


03423 

040036 


OAC LKCNQ 


03424 

641001 


LACS 


03429 

040037 


OAC SCCNO 

/SAVE SC FOR TYPEOUT 

03426 

641002 


LACO 


03427 

040039 


OAC HQCND 

/MO rOR tyrcout 

03430 

940032 


SAO LKSTRT 

/LINK TO M0l7» 

03431 

741000 


SKR 

/YiSi OK 

03432 

603441 


JMR ,♦7 

/MQ error 

03433 

200031 


LAC MQSTRT 


03434 

740010 


RAL 


03439 

200030 


lac acstrt 


03436 

740010 


RAL 


03437 

940034 


SAD ACCNO 

/AC0 Should be « mob 

03440 

741000 


SKR 


03441 

103749 


JMS LLSERR 


03442 

100040 


JMS SWITCH 


03443 

003413 


LL8AcT*5 


03444 

200032 


LAC LKSTRT 


03449 

440032 


ISZ LKSTRT 

/L00.1t0» 1»0» It 0t 1 

03446 

741200 


SNA 


03447 

603413 


JMR LLSA0T49 


03490 

140032 


OZM LKSTRT 


03491 

200030 


lag acstrt 


03492 

440030 


ISZ acstrt 

/acb * 0t 0t ii it 0i 0t It 

03493 

741200 


SNA 


03494 

603413 


JMR LL8AfiT^9 


03499 

140030 


OZM acstrt 


03496 

201321 


lac BIT0 


03497 

940031 


SAD MQSTrT 

/TESTED MOB « IT 

03460 

603463 


JMR 

/YCS 

03461 

040031 


OAC mqstrt 

/MO0 « 0, 4 PASSES 

03462 

603413 


JMR LLSAcT*9 

/«!. 4 PASSES 

03463 

100060 


JMS SWTChS 


03464 

003310 

/ 

LLSTSl 
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23465 801342 

03466 040031 

03467 040033 

03470 140032 

03471 140030 

33472 200031 

03473 652000 

03474 754000 

03475 640601 

03476 040034 

03477 750010 

03500 040036 

03501 641001 

03502 040037 

03503 641002 

03504 040035 

03505 200031 

03506 740010 

03507 540035 

03510 741000 

03511 603516 

03512 200030 

03513 740010 

03514 540034 

03515 603517 

03516 103745 

03517 100040 

03520 003472 

03521 200031 

03522 744010 

03523 040031 

03524 740400 

03525 603472 


/WILE EACH BIT or twE MO 
/l«0i AND 0-1 LETT 
/ 

LLSTS3 lac BIT17 

OAC hqstrt 
OAC SCSTrT 
OZM LKSTrT 
DZM ACSTrT 
lac MQSTrT 
lmo 

CLAICLL 
LLS 01 
OAC ACENn 
GLK 

OAC lkeno 

LACS 

DAC SCCNn 
LACQ 

OAC MOEND 
LAC MQSTRT 

RAL 

SAO MQINn 
SKR 

jMr .*5 
LACT ACSTrT 
RAL 

SAO ACENb 
JMP ,♦2 
JMS LLSCRR 
JM5 SWITCH 
LLSTs3*5 
lac MOSTRT 
CLL!rAL 
OAC MQSTrT 
SNL 

JMP LLSTS345 

/ 

•EJECT 


SHIFT TO the next 


/start mo 17 TO MQ 16 

/START SeOPE LOOP 
/AC aNO L always 0*5 

/POR typeouts 
/FOR Typeouts 


/END SCOPE 
/SIT UP next mo bit 

/TESTED MQ0 » 1 
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/WILL EACH BIT OF TMC MQ SHIFT TO THE NEXT 

/i»i# 0-i, 1-0 left 


/ 


03926 

201364 

LLSTS4 

LAC NBITi7 

/start 777776 

03927 

040031 


OAC HQSTrT 


03530 

740001 


CMA 


03931 

040033 


OAC SCSToT 

/LLS 01 

03932 

040032 


OAC LKSTrT 

/link always • 1 

03933 

790001 


CLC 


03934 

040030 


DAC ACSTrT 

/AC ■ 1«S ALL 

03939 

200031 


LAC HQSTrT 

/start scope loop 

03936 

692000 


LMO 


03937 

794003 


$TL!CLC 


03940 

640601 


LL3 01 ^ 


03941 

040034 


OAC ACCNO 


03942 

790010 


GLK 


03943 

040036 


OAC LKCNn 

/L# FOR TYPEOUT 

03944 

641001 


LACS 


03949 

040037 


OAC SCCND 

/SC FOR tVREOUT 

03946 

641002 


LACQ 


03947 

040039 


OAC HQCNO 


03990 

200031 


lac HQSTrT 

/SIHULATE LLS 

03991 

744002 


STL 

/TO OET 

03992 

740010 


RAL 

/COhPARE CONSTANT 

03993 

940039 


8A0 MQENf) 

/HO shift OKI 

03994 

741000 


8KP 

/YIS 

03999 

603962 


JMR .♦S 


03996 

200030 


LAC ACSTRT 


03997 

740010 


RAL 


03960 

940034 


8A0 ACCNn 

/AC SHIFT OKI 

03961 

603963 


JMP .♦a 


03962 

103749 


JHS LLSCRR 


03963 

100040 


JM8 SWITCH 

ZENO SCOPE 

03964 

003939 


LLST84*7 


03969 

744002 


stl 


03966 

200031 


LAC HQSTrT 


03967 

740010 


RAL 


03970 

040031 


OAC HQSTRT 


03971 

741400 


82L 

/TESTED HO0 ■ 0 

03972 

603939 


JHR LLSTS4^7 


03973 

100060 


JHS SWTCUS 


03974 

003469 

M 

LLSTS3 



/ 


.EJECT 
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AilLL MQ AC shift A 1 BIT 1 
/USES LLS SIONCO 


/ 


23575 

140030 

LLSTS5 

D2M 

acstrt 

03576 

201342 


LAC 

BIT17 

03577 

040033 


OAC 

SCSTPT 

03600 

040031 


OAC 

HOSTRT 

03601 

040032 


OAC 

lkstrt 

03602 

044701 


OAC 

mocomk 

03603 

144700 


02M 

aCCOmK 

03604 

203767 


LAC 

KLLSSl 

03605 

043617 


DAC 

Lissrx 

03606 

204701 

LLSSLl 

LAC 

mqcomk 

03607 

744010 


CLL! 

ral 

03610 

044701 


DAC 

MQCOmK 

03611 

204700 


LAC 

ACCOmK 

03612 

740010 


RAL 


03613 

044700 


OAC 

accomk 

03614 

200031 


LAC 

mostrt 

03615 

652000 


LMQ 


03616 

754002 


STL! 

:CLA 

03617 

660601 

LLSSEX 

LLSS 01 

03620 

040034 


OAC 

accno 

03621 

641001 


LAes 

03622 

040037 


DA# SCCNd 

03623 

750010 


6LK 


03624 

040036 


OAC 

lkinB 

03625 

641002 


LAGO 

03626 

040035 


DAC 

mQCNo 

03627 

544701 


SAD 

mqcomk 

03630 

741000 


SKP 


03631 

603635 


JMP 

.♦4 

03632 

204700 


LAC 

accomk 

03633 

540034 


8A0 

accno 

03634 

741000 


SKP 


03635 

603643 


JMP 

.♦6 

03636 

200036 


LAC 

lkcno 

03637 

741200 


SNA 


05640 

200037 


LAC 

sccnr 

03641 

741200 


SNA 


03642 

603644 


JMP 

.♦2 

03643 

103770 


JM8 

LLSSrR 

03644 

100040 


JMS 

SWITCH 

03645 

003614 


LLSSCX-3 

03646 

443617 


tS2 

llsspx 

03647 

440033 


IS2 

scstkt 

03650 

200033 


LAC 

scstrt 

03651 

241313 


XOR 

FOURS 

03652 

740200 


S2A 


03653 

603606 


JMP 

LLSSi 1 

03654 

100060 


JMS 

swtchs 

03655 

003575 



LL8TS5 


/ 

.EJECT 


TO 44 PLACES 


/AC start 2ER0S 
/SC incremented to 44 

/MQ start bit 17 5 1 

/RESET shift TO 1 


/start SCOPE LOOP 
/SC • 1 to 44 


/LINK CO TO 0 
/$e END f 0 


ZENO SCOPE LOOP 
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/WILU MO AC shift a no BI 


/ 


03656 

140032 

LLSTS6 

OHM LKSTrT 

03657 

201342 


LAC BIT17 

03660 

040033 


DAC SCSTrT 

03661 

740001 


cma 

03662 

040031 


DAC MQSTrT 

03663 

044701 


DAC MQCOmK 

03664 

750001 


CLC 

0366S 

040030 


DAC ACSTrT 

03666 

044700 


DAC ACCOmK 

03667 

203767 


lac KLLSSl 

03670 

043703 


DAC LLSSX2 

03671 

204701 

LLSSL2 

lac MQCOmK 

03672 

744002 


STL 

03673 

740010 


RAL 

03674 

044701 


DAC MQCOMK 

03675 

204700 


UAC ACCOmK 

03676 

740010 


RAL 

03677 

044700 


DAC ACCOmK 

03700 

200031 


lac mostrt 

03701 

650000 


lmo 

03702 

754001 


CLLICLC 

03703 

660601 

LLS$X2 

LLSS 01 

03704 

040034 


OAC ACCND 

03705 

641001 


LACS 

03706 

040037 


OAC SCCNR 

03707 

750010 



03710 

040036 


OAC LKCNO 

03711 

641000 


lacq 

03712 

040035 


OAC MOCND 

037i3 

144701 


SAD MQCOMK 

03714 

741000 


SKP 

03715 

603721 


JMP ,*4 

03716 

204700 


LAC ACCOMK 

03717 

540034 


SAO ACCND 

03700 

741000 


SKP 

03701 

603725 


JMP ,♦4 

03722 

200036 


LAC LKCNO 

03723 

541340 


SAO BIT17 

03704 

741000 


SKP 

03705 

603731 


JMP .♦A 

03726 

000037 


LAC SCCNq 

03727 

741200 


SNA 

03730 

741000 


SKP 

03731 

103770 


JMS LLSSFR 

03732 

100040 


JMS SWITfiH 

03733 

003700 


LLSSx2«3 

03734 

443703 


!S2 LLS8y2 

03735 

440033 


IS2 SCSTRT 

03736 

000033 


LAC SCSTRT 

03737 

241313 


XOR F0UR5 

03740 

740200 


SHA 

03741 

603671 


JMP LLSSi 2 

03742 

100060 


JMS SHJCuS 


1 TO 44 Places 


/form AC 
/and mo 

/compare constants 

/SIT UP SHIFT START SCOPE LOOP 
/SOni TO 44 PLACeS 
/CIT SC FOR TUT 4 

/link should BC i 

/MQ SHIFT OKI 

/AC shift 0K» 

/LINK SET TO ll 

/SC eO TO 0t 

/advance to NEXT SHIFT 
/shifted 44 PLACES! 

/rcpeaj sequence set? 
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03743 003656 

03744 604016 


LI.STS6 
JMP LPSTsI 

•EJECT 


/ 
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03745 

03746 

03747 

03790 

03791 

03792 

03793 

03794 

03759 

03796 

03797 

03760 

03761 

03762 

03763 

03764 
03769 

03766 

03767 


03770 

03771 

03772 

03773 

03774 
03779 

03776 

03777 

04000 

04001 

04002 

04003 

04004 

04009 

04006 

04007 

04010 

04011 

04012 

04013 

04014 
04019 


/COMMON ERROR TYPEnUT LLS 


/ 


603749 

llserr 

JMP . 

101134 


jMS error 

001553 


tylls 

740033 


SCSTrT*740000 

403749 


LLSERR«400000 

001447 


MORS 

900032 


LKSTrT#900000 

600030 


ACSTpT#600000 

600031 


MQSTRT«600000 

001497 


typatr 

900036 


LKENO*500000 

600034 


ACENO«600000 

600039 


MQCND'»600000 

001607 


TYRES 

001636 


tylacs 

740037 


SCCND«740000 

000000 


0 

623749 


JMP<» LLSrRR 

660601 

kllssi 

/ 

LLSS 01 


/ 

/COMMON 

ERROR TYPEnUT 


/LLS SIGNED 

603770 

LLSSCR 

JMP . 

101134 


JMS |RR0r 

001997 


tyllss 

740033 


SCSYrT*740000 

403770 


LLSScR*400000 

001447 


HDR9 

900032 


LKSTrT«900000 

600030 


ACSTrT*600000 

600031 


MQSTrT*600000 

001497 


typatr 

001444 


SPACP4 

604700 


ACCOmK*600000 

604701 


MQCOmK*600000 

001461 


TYCOR 

900036 


LKCND^900000 

600034 


ACCNo«600000 

600039 


MQCNo«600000 

001463 


TYlNrO 

001636 


TYLAfiS 

740037 


SCCND*740000 

000000 


0 

623770 


JMP» LLSSER 


/ 

.EJECT 


/TO SET UP LONG LEFT SHIFTS 
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/LONG RICWT shift 

/LRS 01 ACi MQ AMD L » 0’S 


/ 


04016 

140030 

lRSTSI 

D5?M ACSTrT 

/set initial conditions 

04017 

140031 


D2M MQSTrT 


04020 

140032 


02M LKSTrT 


04021 

201342 


LAC BIT17 


04022 

040033 


OAC SCSTrT 


04023 

6S0000 


CLO 

/start score loop 

04024 

794000 


CLAtCLL 


04029 

640901 


LRS 01 


04026 

040034 


OAC ACENO 


04027 

790010 


GLK 


04030 

040036 


DAC LKENn 


04031 

641001 


LACS 


04032 

040037 


OAC SCCNd 


04033 

641002 


LACO 


04034 

040039 


OAC hOENH 


04039 

741200 


SNA 

/HO should be 0 

04036 

200034 


LAC ACENB 


04037 

741200 


SNA 

/Ae«07 

04040 

200032 


LAC SCENC 


04041 

741200 


SNA 

/sc 60 TO 07 

04042 

200036 


LAC LKCNn 


04043 

741200 


SNA 

/link still 07 

04044 

741000 


SN0 


04049 

104630 


JN5 lRSERR 


04046 

100040 


JMS SWITCH 

/END SCOPE 

04047 

004023 


LRSTS1*5 



* .EJECT 
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/DOCS link go to kb. 0 ON AN LRS 
/0«0f i"0» 0»l» 1-i 


04050 

140031 

LRSTS2 D2M MQSTrT 



04051 

140030 

02M ACSTpT 



04052 

140032 

OZM LKSTrT 



04053 

201342 

LAC BIT17 



04054 

040033 

DAC SCSTRT 



04055 

200032 

LAC LKSTRT 


/start scope LOOP 

04056 

740020 

RAR 



04057 

650000 

CLO 



04060 

200030 

LAC ACSTrT 


/SET UP COMPLETE 

04061 

640501 

LRS 01 



04062 

040034 

DAC ACCNO 

/SAVE 

RESULTS 

04063 

641002 

LACQ 



04064 

040035 

OAC MOENO 



04065 

641001 

lacs 



04066 

040037 

OAC SCCNO 



04067 

750010 

6LK 



04070 

040036 

OAC LKCNO 

/LINK 

SHOULD NOT CHANGE 

04071 

540032 

SAD LKSTrT 



04072 

741000 

SKP 



04073 

604105 

JMP \*i2 



04074 

200035 

LAC MQCNO 



04075 

740200 

SZA 



04076 

604105 

JMP .♦7 



04077 

200032 

LAC LKSTRT 



04100 

740020 

RAR 



04101 

200030 

lac acstrt 



0^02 

740020 

RAR 



04103 

540034 

8A0 ACCNO 



04104 

741000 

SKP 



04105 

104630 

JMS LRSERR 



04106 

100040 

JMS SWITCH 


/END SCOPE 

04107 

004055 

LRSTs2*5 



04110 

200032 

LAC LKSTRT 



04111 

440032 

ISZ LKSTRT 



04112 

741200 

SNA 



04113 

604055 

JMP LRSTt2^5 



04114 

140032 

OiM LKSTRT 



04115 

201321 

LAC BIT0 



04116 

540030 

SAO acstrt 



04117 

604122 

JMP ;*3 



04120 

040030 

OAC acstrt 



04121 

604055 

JMP lRST82*5 




/ 


EJECT 
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/OpES AC17 GO TO MO0 0\' AN L^S 




/0i0» 1-0 

I 0-1, ANn 1-1 



04122 

140032 

LRSTS3 

dhm lkstrt 

/LINK ALWAYS 

0 

04123 

140031 


0?M MQSTRT 



04124 

140030 


OZM aCSTrT 



04125 

201342 


LAC BIT17 

/SHtrT OF 1 


04124 

040033 


OAC SCSTrT 



04127 

744000 


CLL 



04130 

200031 


lac MQSTRT 

/SIT MO 


04131 

652000 


LMO 



04132 

200030 


lac acstrt 



04133 

640501 


LRS 01 



04134 

040034 


OAC ACCNb 



04139 

750010 


GLK 



04136 

040036 


OAC LKCNn 



04137 

641001 


LACS 



04140 

040037 


OAC SCCNn 



04141 

641002 


laco 



04142 

040035 


OAC MQCNO 



04143 

200030 


LAC AC$TRT 

/gcncRatc MQ 


04144 

740020 


RAR 

/COMPARE 


04145 

200031 


lac mostrt 

/constant 


04146 

740020 


RAR 



04147 

540035 


8A0 HQCNB 

/ACi? TO MO0 

OK? 

04150 

741000 





04151 

604154 


JWR ,♦3 



04152 

200034 


LAC ACCND 



04153 

740200 


S2A 

/AC GO TO 07 


04154 

604160 


JMP .♦R 



04155 

200034 


LAC LKCNn 



04156 

741200 


SNA 



04157 

741000 


SKR 



04160 

104630 


JMS LRSERR 



04161 

100040 


JMS IMITcH 



04162 

004127 


LR8TS3A5 



04163 

200030 


lac acitrt 



04164 

440030 


1S2 ACSTRT 



04165 

741200 


SNA 



04166 

604127 


JMP LR8Ts3*5 



04167 

201321 


LAC BITS 



04170 

140030 


OZM acstrt 



04171 

540031 


SAD MQSTrT 



04172 

604175 


JMP ,*3 



04173 

040031 


OAC MQSTRT 



04174 

604127 


JMP LRSTS3*5 




/ 

.EJECT 
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04175 

04176 

04177 

04200 

04201 

04202 

04203 

04204 

04205 

04206 

04207 

04210 

04211 

04212 

04213 

04214 

04215 

04216 

04217 

04220 

04221 

04222 

04223 

04224 

04225 

04226 

04227 

04230 

04231 

04232 

04233 

04234 

04235 



/DOES AC17 NOT GO TO LINK 

ON AN LRS 

140032 

LRSTS4 D2M LKSTrT 


140030 

02M ACSTrT 


140031 

D2M HQSTpT 

/MO ALWAYS HERO 

201342 

LAC SIT17 


040033 

OAC SCSTrT 

/SHIPT or 1 

650000 

CLQ 


200032 

LAC LKSTRT 


740020 

RA0 

/set link INITIAL 0 OR 1 

200030 

LAC ACSTRT 

/AC«l OR 0 

640501 

LR$ 01 


040034 

OAC ACENQ 


641001 

LACS 


040037 

OAC SCCNB 


641002 

lacQ 


040035 

OAC MQCNB 


750010 

CLK 


040036 

OAC LKCNR 


540032 

SAD LKSTrT 

/WAS LINK altered 

741000 

SKP 


104630 

JMS LPSERR 


100040 

JH8 SWITCH 


004202 

LRSTs4*5 


200032 

LAC LKSTRT 


440032 

IS2 LKSTRT 


741200 

SNA 

/tested L»lt 

604202 

JMR LR8Ts4*5 

/NO 

140032 

D2M LKITrT 


200030 

lac ACSTRT 


440030 

tS2 aCSTrT 


741200 

SNA 

/TCsfEO AC I7il 

604202 

JMP LR$TS4*5 


100060 

JHS SWTChS 


004016 

lrstsi 



^ .EJECT 
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/will AC MQ shift a 1 BIT EACH PDSiTiON RIGHT 


24236 

140032 

/ 

LR5TS5 

DZH LKSTsT 


04237 

140031 


OZM kOSThT 


04240 

144701 


D2H HQCOmK 


04241 

201342 


LAC eITl7 


04242 

040033 


OAC SCSTrT 


04243 

201321 


LAC BIT0 


04244 

040030 


DAC ACSTPT 


04249 

044700 


OAC aCCOmK 


04246 

204700 


lac ACCOmK 

/gemcRate compare 

04247 

744020 


CLLIRAR 

/comstants 

04290 

044700 


DAC ACCOhK 


04291 

204701 


LAC HQCOMK 


04292 

740020 


RAR 


04293 

044701 


OAC HQCOmK 


04294 

200031 

LRST5L 

LAC MQSTrT 


04299 

692000 


lmq 


04296 

744000 


CLL 


04297 

200030 


LAC ACSTPT 


04260 

640901 


LRS 01 


04261 

040034 


OAC ACCNO 


04262 

790010 


GLK 


04263 

040036 


DAC LKENO 


04264 

641001 


LACS 


04269 

040037 


DAC SCCNn 


04266 

641002 


LACO 


04267 

040039 


DAC MQCNn 


04270 

944701 


SAD mQCOmK 

/MO shift OKI 

04271 

741000 


SKP 


04272 

604276 


JMP '.♦A 


04273 

204700 


lac ACCOmK 


04274 

940034 


SAD ACCNn 

/AC shift 0K7 

04279 

741000 


SKR 


04276 

104630 


JM8 lRSERR 


04277 

100040 


JM8 SWITCH 


04300 

004294 


LR8T9L 


04301 

200030 


lac acstrt 


04302 

744020 


CLLlRAR 


04303 

040030 


OAC ACSTPT 


04304 

200031 


lac MQSTpT 


04309 

740020 


RAR 


04306 

040031 


OAC MQSTpT 


04307 

740400 


SNL 


04310 

604246 


JMP lR$T9L-6 


04311 

100060 


JMS SWTChS 


04312 

004236 


LRSTS9 



/ 

.EJECT 
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/wiLU 

AC-HQ shift a no bit 1 

POSiriON 



/RIGHT 

from each bit 


04313 

201342 

LRSTS6 

LAC BIT17 


04314 

040033 


OAC SCSTrT 


0431S 

040032 


OAC LKST0T 


04316 

201343 


LAC NBIT0 

/377777 

04 3l 7 

040030 


OAC ACSTrT 


04320 

044700 


OAC ACCOmK 


04321 

790001 


CLC 


04322 

040031 


OAC MOSTRT 


04323 

044701 


OAC MOCOhK 


04324 

204700 


LAC ACCOmK 

/GENERATE NEXT 

04329 

744002 


stl 


04326 

740020 


RAR 

/set OF 

04327 

044700 


OAC ACCOMK 

/AC mO compare 

04330 

204701 


lac HQCOmK 

/constants 

04331 

740020 


RAR 


04332 

044701 


OAC HQCOmK 


04333 

200031 

LRST6L 

lac mostrt 

/set Up lRS 

04334 

692000 


lmq 


04339 

744002 


8TL 


04336 

200030 


lac acstrt 


04337 

640901 


LRI 01 


04340 

040034 


OAC ACCNR 


04341 

641001 


LACS 


04342 

040037 


OAC 8CCNQ 

/FOR TyPEOUTS 

04343 

790010 


OLK 


04344 

040036 


DAO LKCNQ 

/FOR TyPEOUTS 

04349 

641002 


lacq 


04346 

040039 


OAC MQCNO 


04347 

944701 


SAO HQCOhK 

/MO shift OKI 

04390 

741000 


8KR 


04391 

604399 


JM9 >4 


04392 

204700 


lac ACCOmK 


04393 

940034 


8A0 aCCNr 

/AC shift OKI 

04394 

741000 


SKR 


04399 

104630 


JM8 LRSEM 


04396 

100040 


JH$ SWITCH 


04397 

004333 


LRST6L 


04360 

200030 


lac ACSTRT 


04361 

744002 


stl 


04362 

740020 


RAR 


04363 

040030 


OAC acstrt 


04364 

200031 


lac mostrt 


04369 

740020 


RAR 


04366 

040031 


OAC mostrt 


04367 

741400 


SSL 

/shifted till MOi7»0 

04370 

604324 


JMR LRST6L-7 


04371 

100060 


JMS SWTCwS 


04372 

004313 


LRSTS6 



i 


EJECT 
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/WILL AC MQ SHlTT A 1 BIT 
/RIGHT TO 44 Placer 


/ 


04373 

140031 

LRSTS7 

02M MQSTrt 


04374 

140032 


D2M LKSTrT 


04375 

201342 


LAC BIT17 


04376 

040033 


DAC SCSTrT 


04377 

201321 


lac BIT0 


04400 

040030 


DAC ACSTRT 


04401 

044700 


DAC ACCOhK 


04402 

144701 


OZM mQCOmK 


04403 

204337 


lac LRST6L*4 

/LRS 01 

04404 

044417 


DAC LRST7E 

/FOR EXECUTE 

04405 

204700 

LRST7L 

LAC ACCOmK 


04406 

744020 


CLLJRAR 

/gemerate AC/MO 

04407 

044700 


DAC ACCOmK 

/COMPARE Constants 

04410 

204701 


lac mOCOmK 


04411 

740020 


RAR 


04412 

044701 


OAC HQCOhK 


04413 

200031 


LAC MQSTrt 

/SET UP lRS 

04414 

652000 


LMQ 


04415 

744000 


CLL 


04416 

200030 


lac acstht 


04417 

640501 

LRST7E 

LRS 01 

/I TO 44 PLACES 

04420 

040034 


OAC ACCND 


04421 

750010 


GLK 


04422 

040036 


OAC LKCNID 


04423 

641001 


LACS 


04424 

040037 


OAC SCCND 


04425 

641002 


UACO 


04426 

040035 


OAC MQCNQ 


04427 

544701 


SAO MQCOmK 

/MQ shift OKI 

04430 

741000 


SKR 


04431 

604435 


JMR .♦A 


04432 

204700 


LAC ACCOHK 


04433 

540034 


SAD ACCNO 

/AC CNd OKI 

04434 

741000 


SKR 


04435 

104652 


JMS LRSERI 


04436 

100040 


JM8 SWITCH 


04437 

004413 


LRST7E-4 


04440 

444417 


IS2 LRST7E 

/INCREMENT SHIFT COUNT 

04441 

440033 


1S2 SCSTrT 

/FOR TyPEOUTS 

04442 

201313 


lac rouRB 


04443 

540033 


SAO SCSTrT 

/shifted 44 places? 

04444 

741000 


SKR 

/tes 

04445 

604405 


JMP LRST7L 


04446 

100060 


JMS SWTChS 


04447 

004373 


lrsts? 



/ 


EJECT 
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EAE-Pi 


/will AC MO SHlTT A NO BIT RIGHT 
/I TO 44 places 


/ 


04490 

750001 

LRSTS8 

CIC 


04491 

040031 


OAC MQSTrT 

/MQ start « l‘S 

04492 

044701 


OAC MOCOMK 


04493 

201343 


LAC NBIT 0 

/AC start bit 0S0 

04494 

040030 


OAC ACSTPT 


04495 

044700 


OAC ACCOmK 


04496 

201342 


lAC BIT17 


04497 

040033 


OAC SCSTgT 


04460 

040032 


OAC IK0TRT 


04461 

204337 


LAC LRST6L*4 

/LRS 01 

04462 

044476 


OAC LRSTiC 

/FOR EXECUTE 

04463 

204700 

LRfT0L 

LAC ACCOMK 

/generate 

04464 

744002 


STL 


04465 

740020 


RAR 

/NCxf 

04466 

044700 


OAC ACCOMK 

/compare constants 

04407 

204701 


LAC MQCOmK 


04470 

740020 


RAR 


04471 

044701 


OAC MQCOmK 


04472 

200031 


LAC MQSTrT 

/sct up lRS 

04473 

652000 


LMO 


04474 

200030 


LAC AC8TRT 


04475 

744002 


stl 


04476 

640901 

LRST0E 

LRS 01 

/I to 44 PLACES 

04477 

040034 


OAC ACCNO 


04500 

790010 


QLK 


04501 

040036 


OAC LKCNO 


04502 

641001 


LACS 


04903 

040037 


OAC SCCNO 


04904 

641002 


lacQ 


04905 

040039 


OAC MQENQ 


04906 

944701 


8A0 mQCOmK 

/MO shirt OKf 

04907 

741000 


8KP 


04510 

604914 


JMP .♦A 


04511 

204700 


LAC ACCOMK 


04912 

940034 


SAO ACCNO 

/AC tHlPT OKI 

04913 

741000 


SKP 


04514 

104692 


JM6 LRSCRl 


04919 

100040 


JM8 SWITCH 


04916 

004472 


LRST8E-4 


04917 

444476 


iS2 LR8Ta 

/advance SHIFT 

04920 

440033 


IS2 SCSTiT 

/COUNT 

04921 

201313 


lac rouR§ 


04522 

940033 


SAO 8C8TRT 

/SHtrTCO 44 PLACES 

04923 

741000 


SKP 


04524 

604463 


JMP LRSTSL 


04525 

100060 


JMS SWTCWS 


04926 

004490 


lrstss 



/ 



EJECT 
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/WILL MQ SHirT left 1 
/EVERY combination OF BITS 


04527 

140031 

LLSSE5 

D2M MQSTrT 


/AC and MQ will 

04530 

140030 


OHM ACSTrT 


/ALWAYS BE • 

04531 

201342 


LAC BIT17 



04532 

040033 


OAC SCSTfiT 


/SHIFT IS always 1 

04533 

140032 


OZM LKSTrT 



04534 

200031 


lac mqstrt 



04535 

660000 


eAE*20000 



04536 

740010 


RAL 



04537 

044700 


OAC ACCOhK 


/AC SHOULD 

04540 . 

044701 


OAC mqcomk 


/■MO 

04541 

200031 


lac MQSTRT 



04542 

652000 


LMO 



04543 

660601 


LL8S 01 



04544 

040034 


OAC ACCNn 



04545 

641001 


LACS 



04346 

040037 


OAC SCEND 



04547 

750010 


6LK 



04550 

040036 


OAC LKCNR 



04551 

641002 


LACQ 



04552 

040035 


OAC MOCNQ 7MQ 

ANO 


04553 

540034 


SAD ACEND /AC 

SHIFT 

OK 

04554 

741000 


SKP 



04555 

103770 


JHf LLSSrR 



04556 

100040 


JMS SWITCH 



04557 

004534 


LLSSeQ45 



04560 

440030 


IS2 ACfTRT 



04561 

740000 


NOP 



04562 

440031 


ISZ MQSTRT 



04563 

604534 


JMP LLISrO*5 



04564 

100060 


JHS SWTCWS 



04565 

004527 


LLSSCQ 





/ 

.EJECT 





Page 68 


•CAr«?i 


/WILL MO SHIF-T RIGwT 1 EVERY 

/combination Or bits 


04B66 

140030 

lrsseo 

02M ACSTrT 

/AC and HO 

04567 

140031 


OHM mQSTrT 

/always » 

04570 

201342 


LAC BIT17 


04571 

040033 


DAC SCSTrT 

/always SHIFT OF 1 

04572 

200030 


lac acstrt 


04573 

501342 


AND BIT17 


04574 

040032 


DAC LKSTRT 

/LINK p AC 17 

04575 

740020 


RAR /SO 

THAT AC will • MO 

04576 

200031 


LAC MQSTRT 


04577 

740020 


RAR 


04600 

044701 


DAC MQCOhK 

/AC and mQ 

04601 

044700 


DAC ACCOhK 

/SHOULD BE p 

04602 

740010 


RAL 


04603 

652000 


LMO 


04604 

640501 


LRS 01 


04605 

040034 


DAC ACCNO 


04606 

641001 


LACS 


04607 

040037 


DAC SCCNO 


04610 

750010 


6LK 


04611 

040036 


DAC LKCNO 


04612 

641002 


LACQ 


04613 

040035 


DAC MQEND 


04614 

540034 


SAD ACCNO /AC 

AND MQ R 1 OK 

046i5 

741000 


SKR 


04616 

104652 


jMi lrseri 


04617 

100040 


jmi switch 


04620 

004572 


LRSS20*4 


04621 

440030 


IS2 acstrt 


04622 

740000 


NOR 


04623 

440031 


iS2 MOSTRT 

/ALL COMBINATIONS 

04624 

604572 


JMR LRSSCQ*4 


04625 

100060 


JM8 SWTCHS 


04626 

004566 


LRSSCO 


04627 

603267 


JMR ENDSmE 



/ 

.EJECT 
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/L'RS common error typeout 




/SHirr 

or 1 

04630 

604630 

lrserr 

JMP . 

04631 

101134 


JMS ERROR 

04632 

001563 


tylrr 

04633 

740033 


SCSTrT*740000 

04634 

404630 


LR$ERR»400000 

04635 

001447 


mDR5 

04636 

500032 


LKSTrT*500000 

04637 

600030 


ACSTrT*600000 

04640 

600031 


MQSTrT*600000 

04641 

001497 


typatr 

04642 

500036 


LKCNo«'900000 

04643 

600034 


ACENd^600000 

04644 

600035 


MQENo«600000 

04645 

001607 


TYRES 

04646 

001636 


TYUACS 

04647 

740037 


SCENO«740000 

04650 

000000 


0 

04651 

624630 


JMP» LHSrRR 


/ 

.EJECT 
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04652 604652 

04653 101134 

04654 001563 

04655 740033 

04656 404652 

04657 001447 

04660 500032 

04661 600030 

04662 600031 

04663 001457 

04664 001444 

04665 604700 

04666 604701 

04667 001461 

04670 500036 

04671 600034 

04672 600035 

14673 001463 

04674 001636 

04675 740037 

04676 000000 

04677 624652 

04700 000000 

04701 000000 

04702 000000 


05000 

05000 101363 

05001 041261 


05002 201350 

05003 045535 

05004 105522 

05005 040031 

05006 105522 

05007 045540 

05010 206507 

05011 040010 

05012 341342 

05013 040011 

05014 200031 

05015 652000 

05016 060010 

05017 205540 

05020 040030 

05m 660601 


/LPS COHHOM EPROR TYPEOUT 
/SHIFTS OF MOPE than 1 
LRSERI JMP . 

JMS error 

tylrr 

SCSTrT«740000 

LRSCR1«400000 

H0R5 

LKSTRT*500000 

AC8TRT4600000 

MQSTRT*600000 

TYPAtR 

SPACr4 

ACCOmK«600000 

MQCOhK4600000 

TYCOR 

LKCND‘^500000 

ACeNO^600000 

MQCNO'^600000 

TYINCO 

TYLAcS 

tCCNO^740000 

0 

JMP* LPSPRI 
ACCOMK 0 

MQCOMK 0 

fCCOMK 0 

/TAPE 5 

/RANDOM DATA SHIFTS 
/NORMALIIE T|5T 
/interrupt test 
/ 

.LOC 5000 
LAC NBIT16 
DAC CHARic 

/ 

/SfART RANDOM DATA SHIFTS 
/LEFT 0 TO 44 PLACfS 
RANSHF lac NBIT5 
DAC PASSif 
JMS RAN6FN 
DAC MQSTrT 
JMS RANGFN 
DAC SHFBtiF 
lac cshfruf 
DAC 10 
TAD BIT17 
DAC 11 
LAC hqstrt 

LMQ 

DAC* 10 
LAC SHFBllF 
DAC ACSTRT 
LLSS 01 


/set Pass k to <3 


/. 


/C(NtR«TC AC start 
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EAE-Pl 


05022 

?'60010 


OAC* 10 


05023 

641002 


lacq 


2502A 

?6e0i0 


OAC* 10 


0502S 

220011 

SETLUS 

LAC« 11 


05026 

440011 


IS2 11 


05027 

640601 


LLS 01 


05030 

060010 


OAC* 10 


05031 

641002 


LACQ 


05032 

060010 


OAC* 10 


05033 

206510 


lac (SHFBUF*!!! 


05034 

540010 


SAO 10 

/shifted 44 places? 

05039 

741000 


SKP 


05036 

605025 


JMP SETLlS 


05037 

750010 


glk 


05040 

040032 


OAC LKSTrT 


05041 

140033 


02M SCSTRT 


05042 

205537 


LAC KLLSS 


05043 

049097 


DAC LRANfX 


05044 

206511 


lac (SHFrUF-I 


05049 

040010 

M 

OAC 10 




i 

.EJECT 



V 
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EAE^Pl 


05046 

220010 

LRANLP 

LAC» 10 


05047 

044700 


DAC ACCOmK 


05050 

220010 


LAC* 10 


05051 

044701 


OAC mQCOmK 


05052 

200031 


LAC MQ8TRT 


05053 

652000 


LMQ 


05054 

200032 


LAC LKSTrT 


05055 

740020 


RAR 


05056 

200030 


lac acstrt 


05057 

660600 

lranex 

llss 

✓0 TO 44 PLACES 

05060 

040034 


OAC ACENR 


05061 

750010 


GLK 


05062 

040036 


OAC UKCND 


05063 

641001 


LACS 


05064 

040037 


OAC SCCNO 


05065 

641002 


LACQ 


05066 

040035 


OAC MQCNO 


05067 

544701 


SAO HQCOmK 

/MO • PREOICTEOY 

05070 

741000 


SKP 


050H 

605075 


JfiP 1*4 


05072 

204700 


LAC ACCOmK 


050^3 

540034 


SAO ACCNO 

/AC END • PREOICTEOT 

0S0t4 

741000 


SKP 


05075 

103770 


JMS LLSSfR 


05076 

100040 


JMS SWITffH 


05077 

005052 


LRANlP*4 


05100 

445057 


!S2 LRANPX 


05101 

440033 


tSI SCiTRT 


05102 

201313 


lac rouRl 

/SHtrTCO 44 placcst 

05103 

540033 


SAO SCSTilT 


05104 

741000 


SKP 


05105 

605046 


JKP LRANi P 


05106 

100060 


JMS SWTCWS 


05107 

001010 


RANShF*6 


05110 

445535 

rlstay 

IS2 PASSk 


05111 

605004 


JMP RANSmP«2 




/ 

.ejCcT 
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EAE-Pl 




/RANDOM 

DATA Right 0 to 44 

PLACES 

05112 

201350 

RANRIT 

LAC NBIT5 


05113 

045535 


OAC PASSk 


05114 

105522 


JMS RANGrN 

/generate mo start 

05115 

040031 


OAC HO$TRT 


05115 

105522 


JHS RANGrN 

✓generate acstrt 

05117 

040030 


OAC AC$TRT 


05120 

206512 


lac iSHFiUP-l 


05121 

040010 


OAC 10 


05122 

040011 


OAC 11 


05123 

200030 


lac acstrt 


05124 

060010 


OAC^ 10 


05125 

200031 


lac moitrt 


05125 

060010 


OAC* 10 


05127 

652000 


LMO 


05130 

744000 


cut 


05131 

220011 

SETL0S 

LAC* 11 


05132 

440011 


IS2 11 

✓generate AC MO 

05133 

640501 


LRS 01 


05134 

060010 


OAC* 10 

✓compare CONSTANTS 

05135 

641002 


LAOO 


05130 

060010 


OAC* If 


05137 

206513 


lac (SHFiUr*!!! 


05140 

540010 


Sit 10 


05141 

741000 


SK# 


05142 

605131 


JN0 lETURS 


05143 

205536 


LAC KLRS 


05144 

045161 


OAC RRANrX 


05145 

140032 


02H LKSTrT 


05144 

140033 


02M ICITRT 


05147 

206514 


LAC (SNFiuF-i 


05150 

040010 


OAC 10 


05151 

220010 

RRANLP 

LAC* 10 


05152 

044700 


OAC ACCOmK 


05153 

220010 


LAC* 11 


05154 

044701 


OAC HOCOmK 


05155 

200031 


lac MOIT0T 


05154 

652000 


LMO 


05157 

200030 


lac acstrt 


05140 

744000 


CLL 


05141 

640500 

RRANCX 

LRS 0 

✓0 TO 44 PLACES 

05142 

040034 


OAC ACCNn 


05163 

750010 


QLK 


05144 

040036 


OAC lkcno 


05165 

641001 


LACS 


05166 

040037 


OAC SCCNO 


05147 

641002 


LACO 


05170 

040035 


OAC MQENO 


05171 

544701 


SAO MQCOmK 


05172 

741000 


SKR 


05173 

605177 


JMR ,♦4 


05174 

204700 


LAC ACCOMK 


05175 

540034 


8A0 ACEnB 


05174 

741000 


SKR 


05177 

104652 


JMS LRSril 
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05200 100040 

/ 


u 


JMS SWITCH 
.EJECT 
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95201 

?05155 


RRANEX-4 

05202 

445161 


I S i RR ANPX 

05203 

440033 


ISZ SCSTrT 

05204 

201313 


lac rou«5 

05205 

540033 


SAD SCStRt 

05206 

741000 


SXR 

05207 

605151 


JMP RRANi p 

05210 

100060 


JMS SWTCliS 

05211 

005120 


R4N0fT#6 

05212 

445535 

RRSTAY 

ISZ PASSk 

05215 

605114 

/ 

JMP RAMRfT^S 


,|JCCT 
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/RAMOOM 

/ 

05214 201350 RAVSec 

05215 045535 

05216 105522 

05217 040030 

05220 661000 

05221 750010 

05222 045446 

05223 742020 

05224 045447 

05225 105522 

05226 501364 

05227 345446 

05230 040031 

05231 201364 

05232 045450 

05233 201343 

05234 045451 

05235 140033 

05236 140032 

05237 200031 2ANSO0 

05240 652000 

05241 744000 

05242 200030 

05243 660601 

05244 640502 

05245 660612 

05246 640501 

01247 105452 

05250 100040 

05251 005237 

05252 105417 


DATA ScquEniCEO 

LAC NBIT5 
OAC PASSk 
JMS RANOCNI 
DAC ACSTrT 

EAC!21000 /get AC SIGN CLR AC 

6LK 

OAC iVSiGN 
RTR 

OAC SVSIisN^l 
JMS RANGPN 

ANO NB1T^7 /HAKE MOi7PAC0 

TAO SVSIGM 

DAC MQSTrT 

LAC NBITJ7 

OAC SVHASK 

lac NfitTei 

OAC SVMA8KT1 

OEM SCSTrT 

OEM LKITrT 

lac MQSTRT /sequence 0 

LMQ 

CLL 

lac ACSTRT 
LLSS 1 
LMI a 
LLSS 2 

lbs 1 

JMS SEQCflM 
JMS SWITCH 
RANSQ0 
JMS NXTSPQ 

.EJECT 





/SEQUENCE 

1 




/RIGHT 2i 

L4« R4, I 2 


05253 

200031 

/ 

ransoi 

lac mqstrt 

/SCouENCC 1 R2» L4, 

05254 

744000 


CLL 


05255 

652000 


lhq 

/SfT UP 

05256 

200030 


lac acstrt 


05257 

660502 


LR6S«2 


05260 

660604 


L16S*4 


05261 

640504 


L«S*4 


05262 

660602 


LLSS*2 


05263 

105452 


JM$ lEQCnH 

/COMPARE results 

05264 

100040 


JMS switch 


05265 

005253 


RAMS 01 


05266 

105417 


JMS NXTSrO 




/lift 3. 

right 6, 1 EFT 6, 

RIGHT 3 



/seoucNce 

2 


05267 

200031 

RANSQ2 

lac MOSTrT 


05270 

652000 


LMQ 


05271 

744000 


CLL 


05272 

200030 


lac ACSTRT 


05273 

660603 


LLSS*3 


05274 

640506 


LRS^6 


05275 

660606 


LL8S«6 


05276 

640503 


Ll^*3 


05277 

105452 


JM# SEOCOM 


05300 

100060 


JMt SWITCH 


05301 

005267 


RANSb2 


05302 

105417 


JMS NXTSirQ 



/ 


•ejccT 
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/SEQUENCE 

3 



/RIGHT 4, 

left 8, right 

05303 

200031 

RANSQ3 

lac mostrt 

05304 

744000 


CLL 

05305 

652000 


lmo 

05306 

200030 


lac acstrt 

05307 

660504 


LRSS#4 

05310 

660610 


LL8S*10 

05311 

640510 


LRS*10 

05312 

660604 


LL*S#4 

05313 

105452 


JMS SEQCDH 

05314 

100040 


JHS SWITCH 

05315 

005303 


RAN$03 

05316 

105417 


JHS nxtspq 


/ 


/ 

/SCOUCNCE 4 Ltn S. RIGHT 10, LiPT 10. RIGHT 5 


/ 


05317 

200031 

RANSQ4 

LAC HQSTrT 

05320 

744000 


CLL 

•5321 

652000 


LMQ 

05322 

200030 


LAC ACSTRT 

05323 

660605 


Lt0S#5 

05326 

640512 


LRSM2 

05325 

660612 


LLSS412 

05326 

640505 


LR0M 

•5327 

100452 


JMS SEOCOM 

05330 

100040 


JMS SWITCH 

•5331 

005317 


RAN304 

05332 

105417 


JMS NXTSfQ 


.EJECT 
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/SEQUENCE 5 Right 6i icrr iz. right 12 , left 6 


/ 


35333 

200031 

rAniSQ5 

LAC mQSTrT 

05334 

652000 


UMQ 

05335 

744000 


CIL 

05334 

200030 


lac acstrt 

05337 

660506 


LRSS*6 

05340 

660614 


LU0S*14 

05341 

640514 


lR8^14 

05342 

660606 


LUSS*6 

05343 

105452 


JHS SEOCCM 

05344 

100040 


JMS SWITCH 

05345 

005333 


RANSoS 

05340 

105417 


JMS HXTSrQ 


/ 

/ 

/SCOUENCC 6 left 7 RIGHT 14i LEfT 14, RIGHT 7 


i 


05347 

200031 

RANSQ6 

LAC MQSTrT 

05350 

652000 


LHO 

05391 

744000 


CLL 

05352 

200030 


lac AC8TRT 

05353 

660607 


LLSS*7 

05354 

640916 


LR3*16 

05159 

660616 


Li3S^6l6 

05396 

640597 


l90*7 

05397 

109492 


JHS lEQCcM 

09360 

100040 


JHS SWITCH 

09361 

009347 


RAHS(96 

09362 

105417 


JMS NXTSrO 


/ 

.EJECT 
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/SEQUENCE 7 RIGHT 8i LEFT 1«. RIGHT 16» LEFT g 


/ 


0?363 

200031 

RANS07 

lac MQSTRT 

05364 

652000 


lmq 

05365 

200030 


lac ACSTRT 

05366 

744000 


CLL 

05367 

660510 


lRSS*10 

05370 

660620 


LL8S*20 

05371 

640520 


LR8*20 

05372 

660610 


LL8S«10 

05373 

105452 


JMS SEOCfiM 

05374 

100040 


JMS SWITCH 

05375 

005363 


RANSfi7 

05376 

105417 


JHS NXTSFQ 


/ 


/ 

/SEQUENCE 8 LIFT 9 , RIGHT 18, LIFT 18. RIGHT 9 


/ 


05377 

200031 

RANS08 

lac HQSTRT 

05400 

652000 


LMO 

05401 

200030 


lac acitrt 

05402 

744000 


CLL 

05403 

660611 


LL$S4ll 

05404 

640522 


LRS*22 

05405 

660622 


LL8S#22 

05406 

640511 


LR8*11 

05407 

105452 


JMS SCOCCM 

05410 

100040 


JMS SWITCH 

05411 

005377 


RANSqS 

05412 

445535 


IS2 PASSK 

05413 

605216 


JMP RANSrQ*2 

05414 

100060 


JMS fWTCuS 

05415 

005214 


RANSrO 

05416 

605658 

/ 

JMP NRMLfC 


.CJCCT 



Page ai eae-pi 




/SET AC SIGN Into next AC 
/AMO yo Bits 


05417 

605417 

nixtseq JMP , 


05420 

205446 

LAC $VSIfiN 


05421 

744010 

CLLlRAL 


05422 

045446 

OAC SVSIGN 

/TO PILL MO 

05423 

205447 

LAC SVSICN^I 


05424 

744020 

CLLlRAR 


05425 

045447 

DAC SVSIGN*! 


05426 

205450 

LAC SVMASK 


05427 

744002 

STL 


05430 

740010 

RAL 


05431 

045450 

OAC 8VMASK 


05432 

500031 

AND MOSTrT 

/CUR MO bit 

05433 

345446 

TAD SVSIGN 

/make mo » AC 0 

05434 

040031 

OAC MQSTrT 


05435 

205451 

LAC SVMASK*! 


05436 

744001 

STL 


05437 

740020 

RAR 


05440 

045451 

DAC tVMAsK*! 


05441 

500030 

ANO ACSTrT 

/CUR AC 0IT 

05442 

345447 

TAO SVSIGN*! 

/MAKE ACX • AC 0 

05443 

040030 

DAC ACSTST 

/iNOiCATI NEXT SEQUENCE 

05444 

440033 

isi scstrt 

05445 

625417 

NXTSEO 


05446 

000000 

SV8I6N 0 


05447 

000000 

0 


05450 

000000 

IVHASK 0 


05451 

000000 

0 

/ 

.EJECT 



* A 
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/RANDOM DATA SEOUEnCED 
/COMMON compare AND ERROR TYPE 


/ 


054S2 

605492 

SEOCOM 

JMP 


05493 

240034 


OAC ACCNO 


05494 

790010 


6LK 


05455 

040036 


QAC LKCNO 


05496 

641001 


LACS 


05497 

040037 


OAC SCCNO 


05460 

641002 


LACQ 


09461 

040035 


OAC MQENO 


05462 

540031 


SAD MQ8TRT 

/MO SAME AS START 

09463 

741000 


SKP 


09464 

609467 


JMP ,*3 

/ERROR MO 

09465 

200037 


LAC SCCNO 


09466 

740200 


SZA 


09467 

609473 


JMP ',♦4 

/error sc 

05470 

200030 


lac acstrt 


05471 

540034 


SAD ACCNR 


09472 

741000 


SKP 


09473 

605900 


JMP '>5 

/ERROR AC 

05474 

661000 


CAe!21000 

/get AC SIGN CLR AC 

09475 

790010 


CLK 


09476 

940036 


SAO LKCNO 

/LINK END ■ AC SiGNf 

09477 

625492 


JMP* SEOCOM 

/ALL OK . EXIT 

09500 

101134 


JMI error 


09501 

001977 


fYROSO 


09502 

001442 


tPACfS 


05503 

740033 


8CSTrT«740000 


05504 

409492 


ICOCOM«400000 


05505 

001447 


H0R5 


05906 

900032 


LKSTrT«900000 


05907 

600030 


ACSTrT*600000 


05540 

600031 


MQ8TRT*600000 


05511 

001912 


tyitrt 


05512 

900036 


LKENO*900000 


05513 

600034 


ACCNO^600000 


09514 

600039 


MQCNO'^600000 


09515 

001607 


TYRE* 


05916 

001636 


tYLAcS 


09917 

740037 


SCENO*740000 


09920 

000000 


0 


05521 

625492 


JMP* SCOcOM 

/ERROR EXIT 



/ 

•CJCCT 
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/saNOOH number genfrator 

/18 BIT 


25522 

605522 

RANGEN 

JMP . 


25523 

205533 


lac RANNO 


25524 

744020 


CLLJRAR 


25525 

741400 


S2L 


25526 

241321 


XOR 8IT0 


05527 

245534 


XOR RANNO+1 


05530 

305534 


ADO RANN0*1 


05531 

045533 


DAC RANNO 


05532 

625522 


JMP* RANfiEN 


05533 

736425 

RANNO 

736425 


05534 

335671 


335671 


05535 

000000 

RAiSK 

0 


05536 

640500 

KLRS 

LR5 


05537 

660600 

kllss 

/ 

LL8S 


05540 

000000 

/ 

sHNur 

0 


05652 


/ 

,tOC SHFBU7*il2 




/ 

/NORMAlIIC test 




/DOES 

norms oet AC 0 « 0 to 

L 

05652 

140031 

y 

NRMLiC 

02N MQSTRT 


05653 

140033 


02M SCSTrT 


05654 

201322 


LAC BITl 


05655 

040030 


OAC AC8T|T 


05656 

140032 


02M LKSTpT 


05657 

200032 


LAC lKSTrT 

/start scope loop 

05660 

740020 


RAR 


05661 

650000 


CLQ 


05662 

200030 


lac ACSTiT 


05663 

660400 


NORMI-44 

/se 10 

05664 

641002 


lacq 


05665 

040035 


OAC MQENO 

/save results 

00666 

641001 


LAC8 


05667 

040037 


DAC SCENR 


05670 

750010 


6LK 


05671 

144702 


OZM SCCOmK 


05672 

040036 


OAC LKENO 


05673 

740200 


S2A 

/AC SIGN IS 0 

05674 

106242 


JMS NORMse 


05675 

100040 


JM8 SWITCH 

/end scope loor 

05676 

005657 


NRMUIEaS 


05677 

200032 


lac lkstrt 


05700 

440032 


IS2 lkstrt 


05701 

741200 


SNA 


05702 

605657 


JMP nRMLPE*5 




/ 

.eject 



y 
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/DOCS 

NORMS GCt AC0il TO L 


85703 

750001 

NRML21 

CLC 


05704 

040031 


OAC MQSTrT 


05705 

140033 


OZM SCSTrT 


05708 

140032 


08M LKSTrT 


05707 

750001 


CLC 


05710 

040030 


OAC ACSTrT 


05711 

200032 


lac lkstbt 

/start score loop 

05712 

740020 


RAR 


05713 

200030 


LAC ACSTrT 


05714 

650004 


CL0*4 

/set MO ■ Its 

05715 

660400 


NORMS-44 


05716 

040034 


OAC ACCNO 


05717 

641002 


lacq 


05720 

040035 


OAC MQCNO 


05721 

641001 


LACS 


05722 

040037 


OAC SCCND 


15723 

750010 


CLK 


05724 

144702 


02H SCCOmK 


05705 

040036 


OAC LKCNR 


05706 

741200 


8NA 


05727 

106242 


JM8 NORMse 


05730 

100040 


JMS switeH 

ZENO Scope loop 

05731 

005711 


NRMLI1A6 


05732 

200032 


LAC LKSTRT 


05733 

440032 


iS0 LKSTRT 


05734 

741200 


SNA 


05735 

605711 


JMR NRML81*6 




/ 

.EJECT 
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E.AE-P1 


/WILL norm stop shift nITH 




/AC 0 AND 

i 

AC 1 UNEfM'AL? 

01. 10 

05736 

140031 

/ 

NR'^Li2 

OHM MQSTrT 


05737 

140032 


OHM LKITrT 


05740 

201274 


LAC SEVSFV 


05741 

044702 


OAC SCCOmK 


05742 

201322 


LAC BITI 


05743 

040030 


DAC ACSTrT 


05744 

201342 


LAC BIT17 


05745 

040033 


OAC SCSTPT 


05746 

200031 


LAC MQSTrT 

/start scope loop 

05747 

652000 . 


L.MQ 


05750 

744000 


CLL 


05751 

200030 


lac ACSTrT 

/set up complete 

05752 

640401 


NORM. 43 

/sc 1 1 

05753 

040034 


OAC ACENO 


05754 

641002 


lacq 


05755 

040035 


OAC HQENR 

/SAVE RESULTS 

05756 

750010 


GLK 


05757 

040036 


OAC LKCND 


05760 

641001 


lacs 


05761 

040037 


OAC SCCNn 


05762 

541274 


SAO SEVSrv 

/SC r -11 

05763 

741000 


SK0 


05764 

106214 


NlORMjrR 


05765 

100040 


JMS SWiTrw 

/EN6 SCOPE LOOP 

05766 

005746 


NRMUI2410 


05767 

200030 


lac ACSTRT 


05770 

740001 


CHA 


05771 

040030 


OAC ACSTrT 


05772 

200031 


lac MQSTrT 


05773 

740001 


CMA 


05774 

040031 


DAC MQSTrT 


05775 

740200 


S2A 


05776 

605746 


JMP NRMLS2410 



/ 

.EJECT 
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/DOES NORM not stop SHin 
/ON AC 0 « ACl 00. 11, 


/ 


05777 

140031 

NRMLi3 

02M MQSTrT 


06000 

140032 


OHM LKSTrT 


06001 

201341 


LAC BIT16 

/ Normalize sc » 2 

06002 

040033 


DAC SCSTflT 


06003 

201274 


LAC SEVSirV 


06004 

044702 


OAC SCCOmK 


06009 

201323 


lac BIT2 


06006 

040030 


OAC ACSTrT 


06007 

200031 


lac MQSTrT 

/start scope loop 

06010 

692000 


LMO 


06011 

744000 


CLC 


060i2 

200030 


lac ACSTrT 

/COMPLETE SET UP 

06013 

660402 


NORMS-42 

/SC m 2 

06014 

040034 


OAC ACENO 


06015 

641001 


LACS 


06016 

040037 


OAC SCENn 

/SAVE RESULTS 

06017 

750010 


CLK 


06020 

040036 


OAC LKCNn 


06021 

641002 


LACO 


06022 

040039 


OAC MOEND 


06023 

741100 


SPA 


06024 

740001 


CMA 

/MQ p ALL 0*S OR ALL I'S 

06009 

740200 


SHA 


06026 

606034 


JMP ,♦6 

/ESROP in MQ 

06027 

200034 


LAC ACCNO 


06030 

741100 


SPA 

/AC nEGATIVCI 

06031 

740001 


CMA 

/make positive 

06032 

941322 


SAO Bin 

/AC normalise CORRECT? 

06033 

741000 


SKP 


06034 

606040 


JMP ',♦4 

/AC IN ERROR 

06039 

200037 


LAC SCENn 


06036 

941274 


SAD SEVSfV 

/SC P *17 

06087 

741000 


SKP 


06040 

106242 


JMS NORHSC 


06041 

100040 


JMS SWITCH 

/end SCOPE LOOP 

06042 

009660 


NRMU2E*6 


06048 

200030 


lac ACSTrT 


06044 

740001 


CMA 


06049 

040080 


OAC ACSTRT 


06046 

200031 


LAC MQSTrT 


06047 

740001 


CMA 


06090 

040031 


OAC MQSTRT 


06091 

740200 


SHA 


06092 

606007 


JMP NRMLP3^10 



/ 

.EJECT 
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/vvtlL normalize normalize a positive 

/number with a 1 from AC BIT 1 TO aC 17 WITH SC*44 AT START 
/and a negative number with A0 In ac bit i 




/to ACl 





/AC * MQ 

AT NORMS START. 




/AC 6 MQ 

should equal 




/200000 

OR 577777 at end 

• 

06293 

140032 

NRMLH4 

DZM LKSTRT 


06094 

201314 


lac rouR4 


06059 

040033 


DAC SCSTRT 


06056 

201322 


LAC eiTi 


06057 

040030 


DAC ACSTrT 


06060 

040031 


OAC MQSTRT 


06061 

201316 

NR4A 

LAC THRErA 


06062 

044702 


OAC SCCQhK 

/TO COMPARE SC 

06063 

200031 

NR4B 

lac mqstrt 

/SCOPE LOOP START 

06064 

652000 


LMQ 


06065 

744000 


CLL 


06066 

200030 


LAC ACSTRT 

/SCT UP COMPLETE 

06067 

660444 


norms 

/SC ■ 44 

06070 

040034 


DAC ACCNO 


06071 

641002 


LACO 


06072 

040039 


OAC moend /save results 

06073 

790010 


GLK 


06074 

040036 


OAC lkcnd 


06075 

641001 


LACS 


06076 

040037 


OAC SCCNR 


06077 

944702 


SAC SCCOmK 


06100 

741000 


SKP 


06101 

606119 


JMP NR4C /SC» 

ERROR 

06102 

200034 


LAC ACCNn 


06103 

741100 


SRA 


06104 

740001 


CMA 


06109 

941322 


SAD BITI /AC 

should be • 20000. 

06106 

741000 


SKP 


06107 

606115 


JMP NR4C 


06110 

200039 


LAC MOENn 


06111 

741100 


SPA 


06112 

740001 


CMA 


06113 

541322 


SAO BITI /MO 

SHOULD BE p 200000 

06114 

741000 


SKP 


06119 

106242 

NR4C 

JMS NORMSE 


06116 

100040 


JMS SWlTrH 


06117 

006063 


NR4B 


36120 

200031 


lac mostrt 


06121 

652000 


LMO 


06122 

744000 


CLL 


06123 

200030 


lac acstrt 

/shift ac 6 mq 

06124 

444702 


ISZ SCCOmK 

/when AC NOT equal MO 

06125 

660901 


lrss*i 


06126 

040030 


DAC ACSTrT 

/change signs 

06127 

641002 


LACQ 


06130 

040031 


OAC MOSTrT 


06131 

940030 


SAO ACSTRT 

/AC and mo still equal 

06132 

606063 


JMP NR4B /DO» 

AGAIN. 
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06133 

740100 

SMA 


/done all negatives yet, 

06134 

606141 

JMP 

NRMLP5 

/yEs, do next test. 

06135 

201344 

■ lac 

NiSiTi /2 niD 

series, positives done, do negatives 

06136 

040030 

OAC 

acstpt 

/negative NUMBERS 

06137 

040031 

OAC 

mostrt 


06140 

606061 

JMP 

NR4A 



/ 

.EJECT 
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/will a 
s 2 

/ 

06141 140030 NRML25 

06142 201320 

06143 040031 

06144 201314 

06149 040033 

06146 - 140032 

06147 200031 

06150 692000 

06191 744000 

06192 200030 

06193 660444 

06194 040034 

06199 641001 

06196 040037 

06197 790010 

06160 040036 

06161 641002 

06162 0400SS 

06163 741100 

06164 740001 

06169 740200 

06166 606172 

06167 200034 

066^0 940031 

06171 741000 

06lt2 606177 

06in 201317 
06176 044702 

06179 940037 

06176 741000 

06177 106242 

06200 100040 

06201 006147 

06202 790001 

06203 040030 

06204 200031 

06209 740001 

06206 040031 

06207 741100 

06210 606147 

06211 100060 

06212 009692 

06213 606270 


complement bit pattern NORMALI2E 
2525 AkO 5?5252 AC * 0»S OR I’S 


02M ACSTrT 

lac COMBtT /292525 PATTERN 

DAC MOSTPT 

lac F0UR4 

OAC SCSTrT 

OZM LKSTrT 

lac mqstrt /score loop start 

lmo 

CLL 

lac AC$TrT 
norms 

OAC ACCNO 

lacs 

OAC SCENO 
GLK 

OAC LKCNO 
LACQ 

DAC MQENS 
SRA 
CMA 
SiA 

JMP I *4 

LAC acenB /acend should 

SAD mqstrt /» MOSTRT 

SKP 

JMP V*9 /AC error 

LAC riVE6 
OAC SCCOmK 

SAO SCENO /SC INDICATE SHIFT 10 
SKP 

JMS NORMSE 

jMS SWITCH /ENo Scope loop 

NRMLg5*6 

CLC 

OAC ACITRT 

lac mqstrt 

CMA 

OAC MQSTRT 
SPA 

jMP NRMLP5*6 

JMS 8WTCHS /TIST REPEAT SEQUENCE 

NRML?E 

JMP INTEST /GO to INTERRUPT TEST 


• EJECT 
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/KjOPMALiZE 

: ERROR TyPEOUTS 

06214 

606214 

/ 

MORMER 

JMP t 

06219 

101134 


JMS ERROR 

06216 

001646 


TYNORH 

06217 

740033 


SC8TRT*740000 

06220 

406214 


normer*400000 /error address 

06201 

001447 


hOR5 

06222 

900032 


LKSTrT«500000 

06229 

600030 


ACSTrT*600000 

06224 

600031 


hQSTrT*600000 

06229 

001497 


TYPAfR 

06226 

900036 


LKEND'^900000 

06227 

600034 


ACEND«600000 

06230 

600039 


MOENd«600000 

06291 

001607 


TYRES 

06232 

001636 


TYLAffS 

06239 

744702 


SCeOMK*740000 

06234 

001461 


tycor 

06299 

001636 


TYUACS 

06290 

740037 


SCCND'^740000 

06297 

001607 


TYRER 

06240 

000000 


0 

06241 

626214 

/ 

JMP* NORmER 



/ 

/NORHALliC signed ERROR TYRCOUTS 

A 

06242 

606242 

norhse 

JMP V 

06243 

101134 


JMS error 

06244 

001466 


TYNRmS 

06249 

740033 


SCSTrT«740000 

06246 

406242 


NORMSE4400000 

06247 

001447 


MORS 

06290 

900092 


LK8TRT4900000 

06291 

600030 


ACSTrT«600000 

06292 

600031 


MQSTRT4600000 

06299 

001497 


TYPAfR 

06294 

900096 


LKCND*900000 

06299 

600034 


ACCNO^600000 

06296 

600099 


MQCNO^600000 

06297 

001607 


TYRES 

06260 

001636 


TYLACS 

06261 

744702 


SCCOmK*740000 

06202 

001461 


tycor 

00269 

001636 


TYLAr.S 

06264 

740037 


SCCNo*740000 

06269 

001607 


tyres 

06266 

000000 


0 

06267 

626242 


JMP* NORmSC 



/ 

.EJECT 
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/^E;ST PROGSAM INTERRUPT 
/after EAE OPERATInNS 


/ 


06270 

700401 

IN TEST 

Tsr 

/printer flag? 

06271 

741000 


SKP 

/NO 

06272 

606276 


JMP ,♦4 


06273 

760000 


LAW 0 


06274 

700406 


TLS 

/type null 

06279 

700401 


TSF 

/watt printer plag 

06276 

606275 


JMP ,-l 


06277 

206515 


lac (JHP INTSl 


06300 

?40001 


DAC 1 

/load INT JMP 

06301 

70004? 


ION 


06302 

640000 


EAC 


06303 

740000 


NOP 


06304 

700002 


lOP 

/SHOULD NOT GET HERE 

06309 

101134 


jMS error 


06306 

001472 


ttinte 


06307 

001914 


TYNOP 


06310 

406302 


400000*. *6 


06311 

000000 


0 


06312 

700401 

INTSl 

TSr 

/WAIT IN case 

06313 

606912 


JMP .-1 

/or error 

06314 

100040 


JMS SWITCH 


06319 

006301 


iNTEST*ll 


06916 

201340 


LAC BIT17 


06317 

040091 


DAC MOSTRT 


06320 

140030 


OHM ACSTrT 


06321 

140032 


DIM UKSThT 


06322 

201315 


lac rouRs 


06323 

040033 


OAC SCSTrT 


06324 

206916 


lac (JMP INTS2 


06329 

040001 


OAC 1 


06326 

200031 

lNtS2L 

LAC MQSTRT 

/prepare for lls 

06327 

692000 


LMO 


06330 

794000 


CUA.'CLL 


06331 

700042 


ION 


06332 

640643 


LLS*43 

/execute 

06333 

740000 


NOP 


06334 

700002 


lor 

/SHOULD NOT GET HERE 

06335 

101134 


JMS ERROR 


06336 

001472 


tyintc 


06337 

001993 


tylls 


06340 

740033 


SC8TrT*740000 


06341 

406332 


,•7*400000 


06342 

000000 


0 


06343 

606401 


JMP INTS9E 



/ 

.EJECT 
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06344 040034 INtS2 

06349 641001 

06346 040037 

06347 641002 

06350 040035 

063.51 740200 

06352 606356 

06353 200034 

06354 541321 

06355 741000 

06356 606362 

06357 200037 

06360 741200 

06361 606401 

06362 101134 

06363 001502 

06364 001593 

06369 740033 

06366 001447 

06367 900032 

06370 600030 

06371 600031 

06372 001457 

06373 900032 

06374 600034 

06379 600039 

063H 001636 

06377 740037 

06400 000000 

06401 700401 iNTSaC 

06402 606401 

06403 100040 

06404 006326 


/SAVE RESULTS 


OAC ACENO 
LACS 

OAC SCEND 
LACQ 

OAC MQCNiS 
SZA /MQ SHIFT OK? 

JMR .*4 
lac ACCNf) 

SAD BIT0 /AC shift OK? 

SKP 

JM0 \*A 

LAC SCCNO /SC GO TO 0? 

SNA 

JMP INTS2E 
JMS error 
inoat 
tyllr 

SC$TrT*740000 

H0R9 

LKSTRT*900000 

AC3TrT«600000 

MQSTrT*600000 

TYPAtR 

LK8TrT*500000 

ACENO«600000 

MQeND^600000 

tylacs 

SCEND*740000 

0 

Tsr /wait in case of 

JMP V-1 /error TvPEOUT 

JMS SWITCH 

intsK 

.EJECT 
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06405 700401 

06406 741000 

06407 606413 

06410 760000 

06411 700406 

06412 700401 

06413 606412 

06414 206517 

06419 040001 

06416 201322 

06417 700042 

06420 640444 

06421 440001 

06422 440000 

06423 700002 

06424 101134 

06429 001472 

06426 001646 

06427 406420 

06430 000000 

06431 606440 

06432 741000 

06433 601440 

06434 101134 

06439 001612 

06436 001646 

06437 406420 

06440 700401 

06441 606440 

06442 100040 

06443 006414 

06444 100060 

06449 006270 

06446 790004 

06447 501327 

06490 741200 

06491 606499 

06452 760092 

06493 101716 

06454 441261 

06499 606461 

06496 101240 

06497 201363 

06460 041261 

06461 790004 

06462 501326 

06463 741200 

06464 609002 

06469 600229 

000000 

06471 007777 #1 

06472 207207 *L 

06473 777700 

06474 191200 -L 

064.79 000077 •i 


JSF 

SKP 

JMP .+4 

law 2 

TLS 

Tsr 

JMP .’•l 

QNPM lac <JMP QNRH2 

OAC 1 
LAC BIT! 
tON 

ONRMl norm 

ISZ 1 

isz 0 
lor 

JMS error 

tyinte 

TYNORM 

QNRH1*400000 

0 

JMP ONRMS 
ONRMa SKP 

JMP QNRMS 
JMS error 
TYOInT 
tynorm 

QNRMi«400000 
QNRM3 TSr 

JMP >1 
JMS SWITrH 
ONRM 

JMS SWTCWS 

INTEST 

LAS 

AND BIT6 
SNA 

JMP .*4 
LAW 92 
TYl 

IS2 CHARk 
JMP ,*i 
JMS cRir 
lac N0ITi6 
OAC CHARk 
LAS 

AND BITS 
SNA 

JMP RANSWF 
JMP NOPAC 
«END 


/testing INTERUPT BEING DELAYED 
/TWO INSTRUCTIONS AFTER 

/normalize is done. 


/HAVE FLAG ON TO CAUSE INTERUPT ■ 
/SET JUMP FOR INTERUPT. 


/DO initialize 

/rsi SHOULD BE DONE BEFORE INTERUPT, 

/SHOULD NOT COME HERE. 

/NO INTERUPT OCCURRED. 


/IF INTERUPT happens BFFORC ISZ. DO SKP. 
/OK, INTCRUPT DELAYED ONE INSTRUCTION. 

/NO delay of INTERUPT AFTER NORMALIZE. 


/WAIT FOR typing TO END. 
/CHECK LOOP 


/T¥pe at end set? 


/cycle all tests 
/*!? 

/NO, STAY IN RANDOMS 

/start set up test 


i 
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PI 


06476 

000040 

*L 

06477 

000200 

*L 

06900 

0 0 3 0 0 

*L 

06901 

000240 

•L 

06502 

000007 

• L 

06903 

000260 

•L 

06504 

000215 

•L 

06905 

000212 

♦L 

06906 

003244 

•L 

06907 

005940 

•L 

06510 

005691 

•L 

06911 

005537 

• L 

06912 

005937 

•L 

06913 

009691 

•L 

06914 

005937 

*L 

06519 

606312 

• L 

06916 

606344 

• L 

06917 

606432 

• L 


NO Error lines 
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ACCOMK 04700 
ACEND 00034 
ACLMO 00704 
ACLKQE 00732 
ACOMEO 01017 
ACORmQ 00641 
ACSTRT 00030 
AlSERR 03175 
AlSLNK 02663 
AlSMOT 02760 
ALS2ER 02604 
ALS01 02626 
B1T0 01321 
Bill 01322 
BIT10 01333 
BlTil 01334 
BIT12 01335 
BIT13 01336 
BIT14 01337 
BIT15 01340 
BIT16 01541 
Bill? 01342 
B1T2 01323 
BITS 01324 
BIT4 01325 
01T5 01326 
BIT6 01327 
BIT7 01330 
BITS 01331 
BIT9 01332 
CHARK 01261 
ClOF 700004 
CLON 700044 
ClSF 700001 
COMBIT 01320 
Comma 03307 
COMPMQ 00763 
CRCOOE 01465 
CRLF 01240 
OECOMT 02047 
EaEABS 01045 
EaECAC 00246 
E^AECLQ 00264 
EAERMQ 00202 
EAESLK 00533 
£:EM 707702 
ENDSHF 03267 
ERCONT 01163 
ERLOOP 01145 
Error 0ii34 
EIVE6 01317 
EOURI 01304 
E0UR3 01315 
POUR4 01314 
P’0UR5 01313 
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HQRI 01366 
H0R2 01375 
HDR3 01411 
HDR4 01427 
^DR5 01447 
HSALS 03114 
HSALSE 03134 
HSALSL 03127 
iNOAT 01502 
Intest 06270 
InTSI 06312 
InTS2 06344 
INTS2E 06401 
InTS2L 06326 
KALL7 01365 
KALS01 02732 
KLLSS 01537 
KLLSSI 03767 
KlRS 05536 
KRB 700312 
KSr 700301 
KlB 01300 
LEM 707704 
LKENO 00036 
LkSTRT 00032 
LLSACT 03406 
LtSCRR 03745 
LLSSEO 04027 
LLSSER 03770 
LLSSEX 03617 
LLSSLl 03606 
LLSSL2 03671 
LLSSX2 03703 
ILSTSI 03310 
LLSTS2 03342 
LLSTS3 03465 
LLSTS4 03526 
LLSTS5 03575 
LLST36 03656 
LNKAiS 02721 
LRANCX 05057 
LRANLP 05046 
LRSERR 04630 
LRSERl 04652 
LRSSEO 04566 
LRSTSl 04016 
LRSTS2 04050 
LRSTSS 04122 
LRSTS4 04175 
LRSTS5 04236 
LRSTS6 04313 
LRSTS7 04373 
LRSTSS. 04450 
LRST5L 04254 
LRST6L 04333 
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LRST7E 

34417 

LRST7L 

34405 

LRST8E 

04476 

LRST8L 

04463 

MIN5 

01257 

MIN6 

01260 

MQCOMK 

04701 

mqeno 

00035 

MQSTRT 

00031 

mqitac 

00313 

MB1T0 

01343 

NBITI 

01344 

nbitib 

01355 

NBITll 

0135^ 

NBIT12 

01357 

NBIT13 

01360 

NBIT14 

01361 

NBIT15 

01362 

NB1T16 

01363 

MBni7 

01364 

NBIT2 

01345 

NBIT3 

01346 

NBIT4 

01347 

NBIT5 

01390 

MBIT6 

01351 

^eiT7 

01392 

NBIT8 

0i3i| 

N0IT9 

01354 

NDSETU 

01112 

NOPAC 

00225 

NQPACl 

00341 

nqplki 

00577 

NOPLMK 

00443 

NQPMO 

00366 

NOPMQl 

00414 

NOPSC 

02225 

NOPSCX 

02555 

NORMER 

06214 

NORMSE 

06242 

NRML2E 

05652 

nrmlhi 

05703 

NRMLH2 

05736 

NRML23 

09777 

NRMLZ4 

06053 

NRMLZ5 

06141 

NR4A 

06061 . 

NR4B 

06063 

NR4C 

06115 

NSNERR 

03077 

NUCT 

06466 

muval 

06467 

NXTSEQ 

05417 

OnESEV 

01307 

OPS 

101762 

OPT 

101762 



OTY 02107 

PASSK 05535 
Per 700202 
PSA 700204 
PSP 700244 
PSr 700201 

ONRM 06414 

QNRMI 06420 
0NRM2 06432 
QNRM3 06440 
OONtAC 00510 
RANGEN 05522 
RANNO 05533 
RANiRIT 05112 
RANSEO 05214 
PANSHF 05002 
RANSQ0 05237 
RaNSQI 05253 
RANSQ2 05267 
RANSQ3 05303 
RANSQ4 05317 
RAN8Q5 05333 
f^ANS06 05347 
RANS07 05363 
PANSQ6 05377 
Rcr 700102 
RCSUIT 03245 
RLSTAY 05110 
RL6 02il5 

RRAMCX 05161 
RRANLP 05151 
RRB 700112 
RRSTAY 05212 
RSA 700104 
RSB 700144 
RSE 700101 
SaLSRP 03244 
Saverr 01276 
SCCOMK 04702 
SCEnO 00037 
SCERR 02520 
SCSTRT 00033 
SCTO00 02355 
SCTO01 02373 
SCTO03 08411 
SCTO07 08427 
SCT017 02445 
SCT037 02463 
SCTO40 08337 
SCTO60 02321 
SCTO70 02303 
SCT074 02265 
SCT076 02246 
SCT077 02501 
-SCTSTl 02200 
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SeCCGM ?5452 
SE'LLS 05025 
SE^LRS 05131 
SETUP 00200 
Seven 0i27i 

SEVTIV 01311 
Sevnty 01302 
5EVN4 01303 
SEVONE 01310 
SEVSEV 01274 
SEVSIX 01275 
SGNSKF 03042 
SHFBUf 05540 
SiMAtS 03216 
SIXONE 01306 
Sixty 01301 
SPAC 02022 
SPACE2 02075 
5PACE3 01442 
SPACE4 01444 
SVCHAP 01263 
SVER 01277 
SVHASK 05450 
SVSIGN 05446 
SWITCH 00040 
SWTCHS 00060 
TCALL 0i215 
TCE 700402 
TCR 102101 
TCTWO 01224 
TOIGIT 102070 
TEMYI 06470 

Three 01312 

THR|E4 01316 
THREE7 01305 
Tin 102101 
TlS 700406 
TOCTAL 02026 
TOCTl 02035 
TSF 700401 
TSP 102022 
TSR 101673 
TwORO 102026 
TWO40 01272 
TWO60 01273 
TyaBS 01626 
TyalS 01667 
TyalSO 01662 

TyCLA 01517 
TyCLO 01523 
.Tycho 01527 
TyCOR 01461 
TYCRLF 02101 
TyCSC 01632 
TYDELE 01244 
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TYINCO 01463 
TYINTE 01472 
TYLACO 01547 
TYLACS 01636 
TYLLS 01553 
TyLLSS 01557 
TYLMO 01622 
TYLRS 01563 
TYLRSS 01573 
TYNOP 01514 
TyNORM 01646 
TYNRMS 01466 
TyPATR 01457 
TYPCHR 01716 
TYPCON 01762 
TYPC03 02001 
TYPECN 01167 
TYPLSI 01656 
TyPOCT 02070 
TYPSAV 01755 
TYPTSR 01673 
TYPTYT 02013 
TYOINT 01612 
TYROSO 01577 
Tyres 01607 
TyRHO 01533 
TYSCER 01642 
TYSIMR 01567 
TYSLK 0153t 
TYShO 01543 
TySSC 01652 
TYSTRT 01512 
TYT 102013 
TYI 101716 
.EOT 00000 
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•EOT 00000 
ACSTRT 00030 
vqSTRT 00031 
LKSTRT 00032 
SCSTRT 00033 
ACEUfD 00034 
hqENO 00039 
uKEND 00036 
SCEND 00037 
SWITCH 00040 
SWTCHS 00060 
SETUP 00200 
EAERMQ 00202 
NQPAC 00225 
EAECAC 00246 
EAECLO 00264 
MQITAC 0031-3 
•JOPACl 00341 
HOPMQ 00366 
NOPMQl 00414 
!^iOPLNK 00443 
QQI^CAC 00510 
tAESLK 00539 
NOPLKl 00577 
ACORMQ 00641 
ACLHQ 00704 
ACLMOC 00792 
COMPHO 00763 
ACONEQ 01017 
E:aEABS 01049 
NDSETU 01112 
ERROR 01134 
ERLOOP 01145 
ERCONT 01163 
TvRECN 01167 
TCALL 01215 
TCTWO 01224 
CRLP 01240 
TyOELE 01244 
*<1N5 01257 
«IN6 01260 
CH4RK 01261 
SVCHAR 01263 
SEVEN 01271 
TWO40 01272 
TWO60 01273 
SEVSEV 0i274 
SEVSIX 01279 
SavERR 01276 
SVER 01277 
K18 01300 
SIXTY 01301 
SEVNTY 01302 
SEVN4 01303 
PQURI 01304 
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^NREE7 01305 
SIXONE 01306 
OnESEV 01307 
SEVONE 01310 
SEVTIV 01311 
^HREE 01312 
‘^0UR5 01313 
E0UR4 01314 
POUR? 01315 
^HREE4 01316 
EIVE6 01317 
COMBIT 01320 
BIT0 01321 
aiTi 01322 
eiTg 01323 
BITS 01324 
BIT4 01325 
8IT5 01326 
BIT6 01327 
BIT7 01330 
BITS 0i3Sl 
BiT9 0|332 
BIT10 01333 
Bini 01334 
BIT12 0^335 

Sins 01336 
BIT14 01337 
BIT15 0i34| 
BIT16 01341 
BIT17 01340 
MBIT0 01343 
NBITI 01344 
NBIT2 01340 
NBIT3 01346 
NBIT4 01347 
NBIT5 01300 
M8IT6 01301 
NBIT7 01302 
mbits 01303 
N9IT9 01304 
MBIT10 01300 
MBITII 01306 
NflITl2 01357 
NBIT13 01360 
MBIT14 01361 
MBIT15 01362 
NBIT16 01363 
NBIT17 01364 
KALL? 01365 
HDRl 01366 
H0R2 01375 
H0R3 01411 
HDR4 01427 
SPACC3 01442 
SPACE4 
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HDR5 01447 

TYPATR 01457 

TYCOR 01461 

TyINCO 01463 

CRCOOE 01465 

tynrms 01466 

TyINTE 01472 

INDAT 01502 

TySTRT 01512 

TYNOP 01514 

TYCLA 01517 

TyClQ 01523 

TYCMO 01527 

TyRMO 01533 

TYSLK 01537 

^YSmO 01543 

TylacO 01547 

TylIS 01553 

TyllSS 01557 

TylRS 01563 

TySIMR 01567 

TylRSS 01573 

TyRDSQ 01577 

Tyres 01607 

TYQINT 01612 

TYLMQ 01622 

TyASS 01626 

TyCSC 01632 

TyLACS 01636 

TySCER 01642 

TynoRM 01646 

TySSC 01652 

TyPLSI 01656 

TyalSO 0166f 

TyALS 01667 

typtsr 01673 

typchr 01716 

TyPSAV 01715 

TYPCON 01762 

TYPC03 02001 

typtyt 02013 

SPAC 02022 

TQCTAL 02026 

TOCTI 02039 

OECONT 02047 

TyPOCT 02070 

SPACE2 02075 

TYCRLF 02101 

OTY 02107 

02115 
SCTSTI 02200 

^OPSC 02225 

SCT076 02246 

SCT074 02265 

SCTO70 02303 
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SCTO60 02321 
SCTO40 02337 
SCTO00 02355 
SCTO01 02373 
SCTO03 02411 
SCTO07 02427 
SCT017 02449 
SCT037 02463 
SCT077 02501 
SCERR 02520 
NOPSCl 02555 
ALS2ER 02604 
ALS01 02626 
ALSLNK 02663 
LNKALS 02721 
KALS01 02732 
AuSMOT 02760 
SCNSHF 03042 
NSNERR 03077 
HSALS 03114 
HSALSU 0Si27 
HSAUSE 03134 
AlSCRR 09179 
SI HALS 09216 
SaUSRP 09244 

Result 01249 

CnOSHF 0926! 

Comma 09307 

LLSTSI 01319 
LLSTS2 09342 
LLSACT 09406 
LLSTS3 09469 
LLSTS4 09926 
LLSTS5 09979 
LLSSLl 09606 
LLSSex 0S6i! 
LLSTS6 09696 
LLSSL2 09671 
LLS$X2 03703 
LUSERR 09749 
KLLSSI 0976! 
LlSSER 09770 
LRSTSI 04016 
LRSTS2 04099 
LRSTS3 04123 
LRSTS4 04179 
LRST$5 04236 
LRST5L 04294 
LRSTS6 04313 
LRST6L 04333 
LRSTS7 04373 
LRST74 -0-4409 
LRST7E 04417 
LRSTSe -04490 
LRST8L 04463 
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LRST 8 E 04476 
ulSSEQ 04527 
uRSSEQ 04566 
i-RSERR 04630 
LRSERl 04652 
ACCOMK 04700 
MQCOmk 04701 
SCCOMK 04702 
RANSHF 05002 
SetlLS 05025 
URANLP 05046 
LRANCX 05057 
RLSTAY 05110 
RANRIT 05ll| 
SETlRS 05131 
RRANLP 05151 
RRANCX 05161 
RRSTaY 01212 
^ANSEO 05214 
PANSQt 05237 
^ANSQl 05959 
^AN$Q 2 09267 

^ANSQ3 09309 
>)ANS04 05317 
RANSQ5 05339 
f)ANSQ6 09347 
»ANSQ7 09369 
f^AN^SOa 09377 
NXT9CO 09417 
SVSIGN 09446 
SVMASK 05490 
SEQCOM 09492 
'^ANGEN 09922 
PANNO 09933 
PASSK 09539 
KLRS 09536 
KULSS 05537 
SHFBUF 05940 
NRMUZE 09652 
NRML21 09703 
NRML22 05736 
NRML23 05777 
NRMt24 06093 
NR4A 06061 
NR4B 06063 
NR4C 06119 
NRML25 06141 
NQRMER 06214 
NORHSE 06242 
Intest 06370 
INTSI 06312 
INTS2L 06326 
1NTS2 06344 
1NTS2E 06401 
QNRH 06414 
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OnPMI 06420 
QNRM2 06432 
QNRM3 06440 
NUCT 06466 
NUVAL 06467 
TEMYI 06470 
TSR 101673 
TYI 10in6 
OPS 101762 
OPT 101762 
TYT 102013 
TSP 102022 
TWORO 102026 
TQIGIT 102070 
TCR 10?i01 
tin 102101 

ClSF 700001 
CLOr 700004 
ClON 700044 
RSF 700101 
RCr 700102 
RSA 700104 
RRB 700|12 
RSB 700144 
P$F 700201 
Per 700202 
PSA 700ff4 
PSB 700244 
KSF 700201 
KRB 700312 
TSF 700401 
TCF 700402 
Tl$ 700406 
EEM 707702 
tCH 707704 




